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OL BABY. OMO 100011 ONO tooivo 
OJO! OJ0O!! 00000 fOO1O O00010N01010101 
O! MNT 100001 0101 10001010,HEM FApY? 


OI GATO, 10010 foNONIO 101 10001 00000 
OI000 10001010 100M10 100 d010M 
OIOMNtO 10001 Ok GATO! 


Apple: Mapa da ROM 
Aí Uso de Redes Locais 
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A SYSDATA GANHA 
DINHEIRO FAZENDO 
MICROCOMPUTADORES 
COMO O SYSDATA III. 


ALGUMAS PESSOAS GANHAM 
DINHEIRO COMPRANDO. 










SYSDATA III SYSDATA HI 
Aqui, tudo o que Você espera Características técnicas. 
de um grande micro. Para aqueles que querem 

saber tudo. 
Compatível com o TRS-80 Total compatibilidade com o 
Modelo III da Radio Shack. TRS-80 Modelo III da Radio 
Gabinete, teclado e CPU em Shack. 
módulos independentes. Processador Z-80-A. 
Versões de 64 a 128 KBytes de Vídeo de 16x 64 ou 16x 32 


RAM, 16 KBytes de ROM. 
Teclado profissional com 
numérico reduzido e 4 teclas 


(linhas x colunas) 
Alimentação de 110 V ou 220 V. 
Teclado alfanumérico de 


de funções. 69 teclas. 
Sistema operacional de disco Teclado numérico reduzido 
DOS Il ou CP/M 2.2. com 4 teclas de funções. 
Caracteres gráficos. Gráficos com 128 x 48 pontos 
Vídeo composto com 18 MHZ no vídeo. 


Aceita até duas R$-232-C 


de faixa de passagem. 
(Sincronas ou Assincronas). 


Saída para impressora 


paralela. Modem fome 
Saída paralela para 
impressora. 
SYSDATA III Placa controladora para até 
Software disponível 4 drives de 5 e 1/4”, dupla 
variado. Escolha o seu. ; a prosiquiaa mo nero or 
Ê b imples (dupla fac 
Videotexto (TELESP). ace), face simp x 
Projeto Cirandão opcional). 
(EMBRATEL). o 
Rede de telex. Opções futuras: 
Sistema Gerenciador de Vídeo compatível 16 x 64, 
Banco de Dados (SGBD), 16x 32,24x800u24x40 
DBASE II. (linhas x colunas). 
Compiladores Cobol, Expansão até 256 KBytes 
Fortran, Pascal, Basic, Forth, de RAM. 
Lisp Pilot. Alta resolução gráfica e cor. 


Editor de textos. Editor de Assembler. 
Desassemblador. 


Interface para acionamento de disco rígido 
(Winchester) de 5, 10 ou 20 MBytes. 


Debugador. Clock dobrado (4,0 MHZ). 
Visicalc. Total compatibilidade com o TRS-B0 
Wordstar, Mod. IV. 
e muitos outros. CP/M versão 3.0. 


SYSDATA 


Sysdata eletrônica ltda. 01155 - Av. Pacaembú, 788 - Pacaembú - SP - Fone: (011)826.4077 


o - Micro 
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A VIAGEM DOS DADOS = 

Neste artigo, Roberto Quito de Sant'Ana comenta que o grande asstrmto do 
momento nas rodas de hobbystas e usuários de micros é a transmissão de 
dados, ou simplesmente a comunicação entre os equipamentos. 

Em linguagem acessível, ele explica os sistemas em funcionamento no 
Brasil e dá uma visão panorâmica a respeito de como se processam a saída 
e a entrada dos dados nas máquinas. 


QUASAR IV, UMA AVENTURA COMPILADA 

O usuário vai conhecer neste artigo toda a profundidade do Quasar IV, um 
jogo cuja principal característica é fugir da fórmula do interpretador, 
considerado monótono ou muito lento por alguns. Trata-se, segundo Lávio 
Pareschi, de um passatempo com múltiplas opções, que ora exigem sorte, 
às vezes malandragem, quando não muita habilidade. Um jogo fácil, difícil, 
desafiante. 


ARQUIVOS EM DISCO DO NEWDOS/80 

Conclusão do artigo cuja primeira parte foi publicada em MS 39. 

Nesta última parte João Henrique Volpini Mattos ensina a praticar os novos 
comandos utilizados com os arquivos NEWDOS/80, de maneira simples, 
fazendo com que o usuário perca o natural temor de se aventurar por 
caminhos que alguns consideram complicados, como esses arquivos. 


OS PERIGOS DA TELEMÁTICA 

A máquina pensa ou não? Bem, este assunto e outras questões de profunda 
subjetividade filosófica são expostos e comentados de forma bem 
humorada por Luís Carlos Eiras, em mais um conto em que a informática é 
o ponto central. Ele narra as experiências de um usuário que se aventura a 
utilizar seu equipamento em busca de contatos com outros seres terrenos 
durante a madrugada. 





20 AUTOMAÇÃO: UM CAMINHO PARA 4 APPLE, O MAPA DA ROM - Aldo 

AS REDES LOCAIS - Como são e quais Felício Naletto Junior, na primeira parte 
as vantagens das redes locais. Veja neste artigo de seu artigo, começa a explicar o mapa da ROM 
de Amaury Moraes Junior. do Apple. 


26 MODEMS, UM PERIFÉRICO EM 
VOGA - Uma abordagem abrangente 


acerca desse importante periférico na 
comunicação de dados. Reportagem. 


SEÇÕES 


4 EDITORIAL 


BANCO DE SOFTWARE 
* 64 - Polvo Gigante + 66 - Curvas Fantásticas 
* 69 - Lista Telefônica * 72 Solitário 





76 CLASSIFICADOS 


6 CARTAS , 78 LIVROS 
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ventos de mudanças no perfil de MS. É bem verdade que 

ainda é cedo para julgar se tais mudanças são boas ou ruins, 
porém tenho certeza de que, em dois outrêsmeses, estaremosás voltas 
com um batalhão de cartas, dos mais variados pontos do Brasil, cada 
qual trazendo, no mínimo, uma sugestão ou crítica. 

Seria um exagero dizer que são essas cartas que nos levam ao 
caminho A ou B, mas certamente elas constituem parte fundamental 
de nosso combustível. A partir delas, a gente reflete bastante, 
discute — e como — e decide manter ou alterar o rumo. Às vezes não 
conseguimos nos esquecer, mesmo em casa, nos fins-de-semana, dos 
elogios apaixonados ou das críticas ferozes. 

É imensa a responsabilidade de ter um grupo de leitores tão 
atentos. Não nos permite a inércia, jamais. Também fato deestarmos 
há quatro anos batalhando neste mercado nos deu experiência 
suficiente para fugir da acomodação. Durante este tempo, MICRO 
SISTEMAS esteve sempre inovando; levando ao leitor importantes 
informações, principalmente, servindo de ponte entre o usuário e a 
indústria, Essa foi nossa maior preocupação: criar condições para que 
nossos leitores vivessem plenamente os recursos oferecidos pelo 
mercado brasileiro de microinformática. 

Mas nós vamos mudar. O que era bom em MS, trabalharemos para 
que fique ainda melhor, pois faremos de 85 o ano do usuário, do 
leitor. Iremos reestruturar algumas seções e serviços e procuraremos 
agilizar nosso esquema de atendimento às dúvidas. 

Para os que se desanimam perante dez páginas de uma (boa) 
listagem, aconselhamos um pouco de paciência, pois estamos 
preparando o MS Save, para diminuir os entraves da digitação. Os 
que reclamaram a ausência de nosso tradicional Índice MS podem 
estar trangúiilos, pois vem aí o Acesso Direto, um resumo completo 
destes três anos de MICRO SISTEMAS por edição, assunto e linha 
de equipamento. Outro serviço, as Micro Fichas, será bastante útil 
para acabar de vez com os papiros-lembretes. Quanto aos cursos 
periodicamente apresentados por MS, estamos estudando os pedidos 
e aviabilidade de produção. Continuem a enviar sugestões. 

Éisto. Neste mês histórico, em que se inicia uma nova era para 
nosso país, anunciamos, também para MS, um novo ciclo, cujo 
sucesso, de maneira idêntica, será função direta da participação de 
todos. 


Í esta altura do campeonato, você já deve estar sentindo leves 
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ACOMPUMICRO 
JATEMO 
MICROENGENHO 2. 


A Compumicro é a única empresa do Rio que comercializa 
exclusivamente micros para uso profissional, em um amplo e confor- 
tável escritório. 

Com uma equipe de vendas formada somente por profissio- 
nais de informática, a Compumicro vem se destacando como uma 
das maiores e mais bem preparadas empresas do setor. 

Isto se deve ao fato da Compumicro oferecer um atendimento 
altamente especializado, só comercializando equipamentos de qua- 
lidade comprovada. 

Como um sucesso puxa o outro, a Compumi- 
cro coloca a sua discada o Microengenho 2. 
Oúnico micro computador nacional totalmente 
compatível com APPLE Ile americano. 

O Microengenho 2 gera caracteres em portu- 
guês maiúsculos, minúsculos e acentuados a partir 
do teclado. Pode ter resolução gráfica de 107.520 
pontos no vídeo (dobro do PLE Plus). Eainda 
possibilita o uso de uma placa de modem 12754, 
por em modo F ULL DUPLEX (cirandão) e 

- DUPLEX (MicroxMicro) substituindo o modem 
extemo convencional. 

Venha a Compumicro e comprove este su- 
cesso pessoalmente. 

Compumicro. O melhor em micro pelas 
melhores condições. 
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SPECTRUM 
micro engenho' 
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End.: Rua Sete de Setembro, 99- 11.º andar - Tel.: PABX (021) 224-7007 
CEP 20050 - Rio de Janeiro/RJ. 
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PAPAFPÃA 


O sorteado deste mês, que receberá uma assi- 
natura de um ano de MICRO SISTEMAS, é 
Antonio Roberto Barrichello, de São Paulo. 


RESPOSTA AO GARIMPANDO... 


Sou possuidor de um TK-85 com 16 K 
de memória, assim como o leitor Ricardo 
Mendonça, que relatou sua experiência na 
Seção Cartas de MS nº 34, na carta intitula- 
da “Garimpando bytes”. Quero, se possível, 
esclarecer a dúvida do Ricardo: no que tange 
ao funcionamento interno do microcompu- 
tador, pouco sei, mas posso assegurar, toda- 
via, que o processador Z80 é um processa- 
dor de 8 bits, que permite o agrupamento de 
dois registradores internos de modo a for- 
mar uma palavra de 16 bits. 

Os 16 bits recebem as seguintes denomi- 
nações: A15 A14 A13 A12 A11 A1O AS AB 
A7 A6 AB A4 A3 AZ A1 AO. Assim, o pro- 
cossador tem condições de acessar 65536 
(216 ou 64 K) bytes de memória (ou posi- 
ções). Porém, o Sistema Operacional dos 
micros da linha Sinclair seta o bit A15 (veja 
em MS nº 31, pág. 42). Desta forma, o pro- 
cessador só pode acessar 32768 (2! 1$ ou 32 
K) posições de memória. 

Por causa desta particularidade do Siste- 
ma Operacional da linha Sinclar, os números 
maiores que 32767 (2151) são vistos pelo 
Sistema Operacional da seguinte forma: 
N-32768, porque quem define se um núme- 
ro é maior ou menor que 32767 é o bit A15. 
Se ele não for considerado, haverá uma mera 
repetição dos números de O a 32767. E se der- 
mos um POKE no endereço 57344, como o 
leitor Ricardo Mendonça fez, estaremos, na 
realidade, dando um POKE no endereço 
24577. 

Para chegar a esta conclusão usei os co- 
mandos B, E e M do MICRO BUG, e pesqui- 
sei os endereços de 32757 até 32767 e os 
endereços de 65525 até 65535. 

O resultado foi: 

32757 48 65525 48 

32758 A6 65526 A6 

32759 0D 65527 0D 

e assim sucessivamente. Podemos reparar 
que o endereço da esquerda é igual ao da 
direita, diminuindo-se 32768. Se pegarmos, 
por exemplo, os dois últimos números que 
pesquisei (32767 3E e 65535 3E) e transfor- 
má-los em binário, teremos: 

32767=0111 1111 1111 1111 

65535= 1111 1111 1111 1111 

A única diferença entre os dois números 
binários é o bit mais significativo (A 15). 

Ainda usando o MICRO BUG, criei a li- 
nha 1 REM com 99 caracteres e entrei com 
a dica “Surpresa na tela” (Seção Dicas de 
MS nº 34), só que não usei o endereço 
16514, mas sim o endereço 49282 (16514+ 
32768). Depois retornei ao BASIC, testei a 
rotina com RAND USR 16514 e ela funcio- 
nou perfeitamente. Tentei acessar a rotina 
através de RAND USR 49282 mas não 
funcionou, dando notação 0/0. O que deve 
ter acontecido com o leitor Ricardo é que 
provavelmente ele utilizou um programa 
BASIC para fazer a constatação citada na 
carta e, por sorte ou azar (não sei), isto não 
interferiu no programa. 

Gilberto F. da Silva 
São Bernardo do Campo-SP 


Agradecemos a você, Gilberto, e também 
a diversos leitores que nos escreveram expli- 
cando o que realmente ocorreu com o micro 
do Ricardo. 


CONVERSA 
DE PROGRAMADORES 


Recebemos em nossa redação a colabo- 
ração espontânea do nosso amigo leitor Bel- 
miro, em que este faz alguns comentários 
irônicos sobre o programa “PIL, a fertilida- 
de programada”, publicado em MS nº 31, 
pág. 32. 

Dizem que já aconteceu (sobre o progra- 
ma Pil, de Armando Oscar e Maria Beatriz 
Cavanha): 

Um programador encontra-se com seu 
amigo, que vinha usando o PIL desde o casa- 
mento. 

— Olá, como vai? Puxa, há quanto tempo a 
gente não se vê, cara! Quem é esse menini- 
nho? 

— É o meu ET2. 

— ET22?! 

— É... Erro de Tabela 2. Aconteceu num es- 
paço de sete anos. Meu ET1 já vai fazer nove 
anos: ocorreu no segundo ano de aplicação. 
Depois eu melhorei a performance. 

— Então, daqui a uns 12 anos saio ET3. 

— Prá mim chega. Já mudei a técnica. Aban- 
donei o “software” e apliquei o “hardware”. 
— O COMPUTADOR... cara?! 

— O bisturitex. 


Belmiro F. da Silva 
Rio de Janeiro — RJ 


| CHING NO CP-300 


Na revista MS nº 26, foi publicado o 
programa / CHING, mas quando fui rodálo 
no meu CP-300, deu erro nas linhas 130, 
140, 150 e 160: toda vez que pressionava 
RUN dava erro nestas linhas. Um outro pro- 
blema ocorre nas linhas 465 a 475, com a 
mensagem de erro: “subscrito fora de fai- 
xa” na linha 475. O valor de G na variável 
J$, na linha 475, fica entre 500 e 600. E o 
erro que está acontecendo nas linhas 130, 
140, 150 e 160 é um erro de sintaxe, pois o 
BASIC sem Disco não aceita a instrução: 


NL MIDSCDS,L,i)="4" 
que deve ser mudada para: 


NL K$=MIDS(DS,L,1)2K$="4" 


Gostaria que MS entrasse em contato 
com o autor para a solução dos problemas 
citados, ou seja, modificar as linhas 130, 
140, 150, 160, 370, 385, 390, 400, 410 e 
420, permitindo que mesmo quem não te- 
nha disco possa desfrutar do / CHING. 
Gerson Petrucelli Filho 
São Carlos-SP 


Remetemos a sua carta para o nosso 
amigo Luiz Gonzaga de Alvarenga, autor do 
programa /- CHING, e eis a resposta que re- 
cebemos: 

“Realmente o CP-300 não aceita a atri- 
buição direta da função string MID$,. pois 
esta é exclusiva do BASIC Disco. 

O valor de G que você encontrou é igual 
a 517, e é decorrente da atribuição de variá- 
vel ocorrida na linha 40, com decrementos 
de 64 em 64, nas linhas 130, 140, 150 e 
160. A modificação apresentada em sua car- 
ta não é suficiente. O que ocorreu é que, na 


linha 440, não foi encontrada a-string H$: 
T$ (comparação feita na linha 445) para 
que fosse feita uma nova atribuição de variá- 
vel, onde G tomasse o valor de A (que seria, 
no máximo, igual a 8). Naturalmente, o 
valor de G na ja 475 manteve o seu últi- 
mo valor, o que acarretou erro de dimensio- 
namento. 

Apresento, a seguir, as modificações que 
se podem efetuar para que o programa rode 
no CP-300: 


102 

105 

110 

185 

120 

130 «««IFLI6THENLGBELSELOZ 
140 é «+ « IFL>6THENIGBELSESOZ 
150 5 «+= IFLI6THENISBELSESOZ 
160 “ «»« IFLI6THENSGDELSESO? 
165 

168 FORWQ=I TOGIAFS=AFS+KS (UG) NEXT 

169 DS=AFS 

367 FSCK)=HIDSCTS,K,1) 

370 IFESCK 

375 IFESCK 

380 IFFS(K 

385 IFFS(K 

a90 FS(K)= «« «ELSEI67 
4OQ FSCK)="0" «« ELSE? 
410 FSCK)=: «« «ELSEI67 
420 F$(K)= - «ELSEI67 
432 FORWQ=I TOSIFAS=FAS+FS (UG) NEXT 

433 TS=FAS 


Luiz Gonzaga de Alvarenga 
Goiânia-GO 


CONTROLE DE 
CARGAS ELÉTRICAS 


Na revista nº 20, de maio de 1983, foi 
publicado um artigo que me interessou: 
“TK e NE no Controle de Cargas Elétricas”. 
Sendo possuidor de um TK 82-C (versão no- 
va), estudei e montei o circuito, porém este 
não funcionou como o previsto. 

Após ligar a interface no micro, ocorria 
o seguinte: ao digitar o programa tudo fica- 
va estável e, logo depois, ao introduzir a va- 
riável A, a saída oscilava como se, de repen- 
te, rapidamente, muitos endereços tivessem 
sido liberados. Em seguida, porém, ficava 
estável mas sempre com o mesmo endereço. 
Depois disso, cada toque do teclado corres- 
pondia a uma mudança para F(H) nos bits 
menos significativos do endereço. 

Para facilitar a visualização das saídas, 
liguei um CI-9368 ao Cl-8212 e um display 
FND-560. Usei também, para segurança no 
funcionamento da interface, uma fonte de 
alimentação usando o C|-7805 e, logicamen- 
te, interliguei o terra como o do micro, mas 
a situação não mudou. 

Ficaria muito grato se o autor fosse con- 
sultado para dar o seu parecer com relação 
ao ocorrido: aconteceu alguma errata na 
matéria ou o circuito só funciona em outro 
micro? 

Milton Vilela 
São Paulo — SP 

Remetemos a sua carta, Eng. Milton, pa- 
ra o nosso amigo e autor do artigo, Jerre Pal- 
meira Salles. Ele respondeu o seguinte: 

“Esta questão é sui gêneris. Até agora 
não havia aparecido nenhuma carta com este 
problema. Na minha opinião, só existe uma 
possibilidade para o ocorrido: o barramento 
de dados é compartilhado com outras ativi- 
dades do microprocessador, ou seja, durante 
um certo tempo ele recebe sinal, em seguida 
transmite sinal e depois refresca a memória. 
Se durante os períodos em que o micropro- 
cessador está enviando sinais outra fonte 
também estiver usando este barramento, ha- 
verá um conflito de informações e aparecerá 
o que você viu na tela. 
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MEXUS SO 


Só quem domina esta tecnologia pode oferecer o que 
há de melhor em 16 Bits 


Emulação de terminais / RJE 
Comunicação micro x 
mainframe 

Sistemas multiusuário 
Conversores de protocolo 
Redes locais 

Software nacional 

e estrangeiro 

Além disso, a Compumicro oferece com exclusividade 


o dispositivo 8088 processor card que permite operar 
software da linha PC em micros da linha Apple. 



























CPU'S Standard 256 K 
Drives 5 4 DFDD (360 K) 
Winchester de 5 e 10 MB 


e Monitores cromáticos/mono 


Co-processador 8087 
Expansões de memória 
Todos os modelos de 
impressora 





COMPUMICRO 


Nós dominamos esta tecnologia. 


INFORMÁTICA EMPRESARIAL LTDA. 







Microprocessador INTEL 
8088 (16 BITS) 









Rua Sete de Setembro, 99 - 11º andar 
Teis: PBX (021) 224-7307 - 224-7007-RJ 













Esta duplicidade de informação poderia 
ser; 

1 — Curto-circuito entre os pinos do conec- 
tor que você usou e a saída de expansão do 
TK. 

2 — Defeito no 8212 e ele está curto-circui- 
tando o barramento de dados ou o de ende- 
reços. 

Sugiro que você confira as conexões do 
item 1 e verifique se não há ligação errada, 
tanto na fiação da expansão quanto do 8212. 
A interface abordada em meu artigo funcio- 
na em qualquer micro da linha Sinclair (o 
meu equipamento é um NEZ-8000). E as in- 
formações divulgadas na revista estão corre- 


Jerre Palmeira Salles 
Crato — CE 


Confesso que foi através de MICRO SIS- 
TEMAS que me apaixonei pelos micros. De- 
sejo também confessar a minha personalida- 
de volúvel, já que antes de por os olhos nes- 
ta revista, eu era um grande admirador dos 
grandes sistemas, pois sou um aspirante a 
programador COBOL. Mas pouco a pouco 
me deixei levar pela graça, rapidez e simpli- 
cidade do BASIC e dos micros. E esta revista 
me possibilitou conhecer e me aproximar 
desta minha nova paixão. Creio que como 
leitor de outras publicações do gênerq posso 
dizer que MICRO SISTEMAS é a melhor re- 
vista sobre Informática deste país: vocês es- 
tão de parabéns. 

Mas, como cedo ou tarde um pouco da- 
quela arrebatadora emoção do primeiro en- 
contro passa e nos deixa raciocinar melhor, 
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SOFTWARE 


planeta de uma 


simulações 
tri dimensionais 
E mais 


por Divino C.R. Leitão) e 
ASSALTO. 


1, SIMULADOR DE VÔO 


Totalmente 


2. XADREZ 





PARA EQUIPAMENTOS COM LÓGICA TRS-80 


me vejo agora no direito (que aliás, não sei 
de onde tirei) de fazer algumas reivindica- 
ções para dar um pouco mais de colorido a 
este meu namoro: se for possível, publiquem 
mais cursos de programação (FORTH, 
MUMPS, Pascal...), pois é a melhor forma de 
podermos seguir a rápida evolução da comu- 
nicação programadores-sistemas. 

Peço também mais programas voltados 
para a área de cálculos e problemas sérios 
(com respectivos fluxogramas) e, quem sabe, 
uma seçãozinha de hardware, mesmo que 
pequenina. Isto porque sou também apaixo- 
nado (que volúvel, não?) pela eletrônica. 

Bem, desde já os meus agradecimentos a 
vocês e podem ter certeza que o meu namo- 
ro, e o dos meus companheiros leitores, esta- 
rá sempre aceso enquanto pudermos ver nas 
bancas a nossa MICRO SISTEMAS. 

Marcos A. Pires 
Mogi das Cruzes — SP 


Ótimo, Marcos. Aqui todo mundo. ga- 
mou por sua carta: gente como você nos dá 
uma alegria especial por nosso trabalho. E 
quanto às suas sugestões, estão todas anota- 
das. 


Ótimo o artigo “O NEWDOS que não es- 
tá nos manuais”, subscrito por Renato De- 
giovani, publicado em MS nº 31. Apenas a 
título de informação, o autor na parte de 
Manipulação dos Dadps do Diretório não 
menciona a reparação do GAT. Não obede- 
cida esta providência, na próxima gravação 
de programas no disquete poderá haver su- 
perposição desastrosa sobre o programa re- 


A REVISTA): 


Nome 


cuperado. 

Embora o reparo no GAT possa ser feito 
usando os recursos do SUPERZAP, o mais 
prático e seguro será a gravação do programa 
recuperado em outro disquete. O programa 
poderá também, eventualmente, ser regrava- 
do no disquete-teste, desde que se tome cui- 
dado de digitar o nome do programa e a ex- 
tensão de forma idêntica às originais. 

Bastante recomendável para quem quiser 
se aprofundar no assunto a leitura do livro 
“TRS-80 Disk and other mysteries”, de Har- 
vard C, Pennington. 

Antonio Roberto Barrichello 
Piracicaba — SP 


Agradecemos a atenção, você está corre- 
to, realmente houve esta falha no texto, se 
bem que o DIRCHECK continuaria a apre- 
sentar o problema. Com relação à sugestão 
para consertar esta falha, o autor, Renato 
Degiovani, discorda da solução apresentada, 
pois, segundo ele, com a monitoração do 
DIRCHECK o uso do SUPERZAP torna-se 
bastante seguro. 


Envie suas correspondências para: ATI — 
Análise, Teleprocessamento e Informática 
Editora Ltda., Av. Presidente Wilson, 
165/gr. 1210, Centro, Rio de Janeiro/RJ, 
CEP 20030, Seção Cartas/Redação 
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À Compumicro 
vai deixar você 
com a melhor 

impressão 
o Unitron API 


Venha assistir a uma demonstração do 
Unitron acessando mais de 300 bancos 

de dados nos EEUU e França. E mais: 

6 PROJETO ARUANDA DO SERPRO (TELEMICRO ) 
6 PROJETO CIRANDÃO DA EMBRATEL 

S BANCOS DE DADOS PARTICULARES 

] IA TOTAL DE ARQUIVOS 
ENTRE O UNITRON E IBM-PC COMPATÍVEIS 















Não existe nada mais 
pessoal do que uma impressão 
digital. Ela é única. Ninguém 
tem igual. O mesmo acontece 

uando você compra o seu 
UNITRON AP HI na 
COMPUMICRO. 

Aqui você tem um atendi- 
mento personalizado e exclusivo. 

O que este atendimento 
tem de exclusivo? É que na 
COMPUMICRO você tem todas 
as informações do produto 
antes mesmo da compra. Ou 
seja, nossa equipe de analistas, 






INFORMÁTICA EMPRES 


Rua Sete de Setembro, 99-11 





todos de nível superior, estu- 
da o seu caso e indica-lhe a 
melhor configuração para as 
suas necessidades. Se você não 
puder vir ao nosso escritório, 
onde será recebido com todo 
conforto e terá à sua disposi- 
ção um analista com todo o 
tempo disponível para 
mostrar-lhe o produto, nós ire- 
mos até você. E após a compra 
continuamos oferecendo nossa 
assessoria, prestando-lhe assis- 
tência técnica, etc... 

E sabe quanto você paga 
a mais por isso? Nada. 

Venha comprovar. 
Estamos esperando por você. 

Pessoalmente. 





ARIAL LTDA. 

andar 
Tel: PBX (021) 224-7007 

CEP 20050 - Rio de Janeiro - RJ 


DO A 


Com a abertura do mundo do teleprocessamento ao usuário 


de sistemas pessoais, torna-se indispensável 
saber como se processa a comunicação entre os micros 








viagem dos dados 


Roberto Quito de Sant'Anna 


em dúvida a grande coqueluche 
do momento — uma vez assenta- 
da a poeira causada pela intro- 
dução dos micros pessoais no 
Brasil — é a transmissão de dados ou co- 
municação entre máquinas. Isto pode 
ser comprovado pela consolidação do 
Projeto Ciranda, experiência pioneira da 
Embratel, pela implantação do Ciran- 
dão, da mesma Embratel, do Videotexto 
da Telesp, e da proliferação dos CBBS 
(Computer Bulletin Board Systems). 
Este artigo pretende dar ao leitor uma 
visão geral e simplificada, tanto quanto 
o permitir a alta complexidade da tecno- 
logia envolvida, de todo o mecanismo 
através do qual os dados oriundos do 
seu micro ou terminal podem atingir o 
que quer que esteja conectado na outra 
extremidade da sua linha telefônica. 

As redes de comunicação de dados já 
são usadas há muitos anos nos sistemas 
de grande porte, tais como os que aten- 
dem aos grandes bancos, empresas de 
aviação e órgãos do Governo, entre ou- 
tros, sendo que, em termos de compu- 
tação pessoal foi mais uma vez, o Proje- 
to Ciranda o responsável pelo início de 
sua difusão entre nós. As vantagens da 
comunicação de dados são muito nume- 
rosas e dentre elas destacamos: 


e acesso de um número muito maior de 
pessoas aos sistemas de Processamento 
de Dados; 

e redução acentuada dos erros de trans- 
crição e de entrada de dados, uma vez 
que estes são coletados, já em forma le- 
gível pela máquina, nos próprios pontos 
de origem da informação — lojas, postos 
de gasolina, bancos, etc.; 
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CARACTERÍSTICAS CARACTERÍSTICAS DA 
a ag Ee | 


USUÁRIO RECEBE PERIODI INFORMAÇÕES DE CÂMBIO LIGAÇÕES PERIÓDICAS E 
CAMENTE POSIÇÕES ATUA DE CURTA OU MÉDIA DU 
LIZADAS DE DADOS INFORMAÇÕES DE NOTÍ RAÇÃO 

cias 

INFORMAÇÕES POLICIAIS 



















USA TERMINAIS DE BAIXA 
VELOCIDADE 







USUÁRIO PEDE INFORMA 
ÇÕES A UM CENTRO PA 
RA RECEBÊ-LAS LOGO 

APÓS 


VERIFICAÇÃO DE CRÉDI 
TO BANCÁRIO 


LIGAÇÕES FREQUENTES 
E DE CURTA DURAÇÃO 























RESPOSTAS GERALMENTE 
CURTAS 


INFORMAÇÕES HOSPITA 
LARES 


INPORMAÇÕES DE TRÂN- 
sITO 








NÃO INTERAGE COM ME- 
MÓRIA DE DADOS 










TEMPO DE RESPOSTA 
críTICO 






PESQUISA BIBLIOGRÁ 
FICA 













USA TERMINAIS DE BAI 
XA VELOCIDADE 










INFORMAÇÕES PODEM SER 
FORNECIDAS A INTERVA 
LOS CURTOS (VÁRIAS VE 
ZES POR DIA) OU MÊ- 

DIOS (POR SEMANA) 


USUÁRIO FORNECE DADOS 
DE ATUALIZAÇÃO 


RESPOSTA NÃO EXIGIDA 


CONTROLE DE ESTOQUE 
DADOS PARA FOLHA DE 
PAGAMENTO 


















ATUALIZAÇÃO 
(ENTRADA DE 
DADOS) 















DADOS PARA CONTROLE 
DE ANDAMENTO DE PRO 
JETOS 


USA TERMINAIS DE BAI 
XA VELOCIDADE 












LIGAÇÕES GERALMENTE 
CURTAS 

















LIGAÇÕES FREQUENTES E 
DE CURTA DURAÇÃO 
RESPOSTAS GERALMENTE 
CURTAS 
TEMPO DE RESPOSTA 
crÍTICO 


USUÁRIO FORNECE DADOS 
E PEDE CONFIRMAÇÃO 
DE NOVA POSIÇÃO 


ATUALIZAÇÃO DE CON- 
TAS (CHEQUE VERIFI 
CADO E LANÇADO) 


RESERVAS DE VÔO 














USA TERMINAIS DE BAI 
XA VELOCIDADE 








PONTO DE VENDA DE 
EMPRESAS 


















LIGAÇÕES FREQUENTES 
DE VÁRIOS USUÁRIOS 
LIGAÇÕES DE CURTA E 
MÉDIA DURAÇÃO 


TEMPO DE RESPOSTA CRÍ 
TICO 


ENVIO DE DADOS E PE- 
DIDO DE RESULTADOS 
USUÁRIO SELECIONA 
PROGRAMA 


SERVIÇOS DE BUREAU” 


SOLUÇÃO DE PROBLE- 
MAS GERAIS 


CÁLCULOS SIMPLES 
DE PROJETOS DE EN- 
GENHARIA 


EDIÇÃO DE TEXTOS 




















COMPARTILHA 
MENTO NO 
TEMPO (TIME 
SHARING) 













USA TERMINAIS DE 
BAIXA VELOCIDADE 
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CARACTERÍSTICAS 
DA COMUNICAÇÃO 


CARACTERÍSTICAS 
DO SERVIÇO 











APLICAÇÕES TÍPICAS 
















SERVIÇO 





USUÁRIO ENVIA DADOS E. 
RECEBE RESULTADOS POR 
LOTES EM OUTRA OCA- 
sIãO 


PEDIDO DE CONFECÇÃO 
DE FOLHAS DE PAGA- 
MENTO 











LIGAÇÕES POUCO PRE 
QUENTES E LONGAS 


PROCESSAMENTO 
REMOTO POR LO 
TES (BATCH 
PROCESSING) 


TEMPO DE RESPOSTA 
NÃO-CRÍTICO 
EMISSÃO DE ORDENS DE 
SERVIÇO COM ENTREGA 
OTIMIZADA (MAIS PRÓ- 
XIMA DOS EXECUTANTES ) 


USA TERMINAIS DE ALTA 
VELOCIDADE 

TEMPO DE PROCESSAMENTO 
MINUTOS A HORAS 








PROGRAMAS CIENTÍFICOS 
DE PESQUISA E DE EN 
GENHARIA 


LIGAÇÕES POUCO PRE 
QUENTES E LONGAS 


USUÁRIO ENVIA DADOS 
E RECEBE RESULTADOS 
POR LOTES 





















TEMPO DE RESPOSTA 


ENTRADA DE USUÁRIO ESCOLHE OU EN NÃO-CRÍTICO 
PROGRAMA RE VIA PROGRAMAS E PRIO 

MOTO (REMOTE RIDADES 

JOB ENTRY) 


USA TERMINAIS DE ALTA 
VELOCIDADE 
TEMPO DE PROCESSAMENTO 
ATÉ VÁRIAS HORAS 








TRANSFERÊNCIA DE GRAN DISTRIBUIÇÃO DE CAR- 

COMUNICAÇÃO DES LOTES DE DADOS GA ENTRE COMPUTADO- 
ENTRE E DE PROGRAMAS DE UM RES 

PROCESSADOR A OUTRO 


LIGAÇÕES POUCO FRE 
QUENTES E COM 
GRANDE VOLUME 





PROCESSADORES USO DE BANCOS DE DA- 


DOS DISTANTES 


TRANSMISSÃO RÁPIDA 
(ALTA VELOCIDADE) 





REQUISITOS COMUNS A TODOS OS SERVIÇOS DE COMUNICAÇÃO DE DADOS: 


« DISPONIBILIDADE DO SISTEMA, QUANDO SOLICITADO 
«- CONFIABILIDADE NA TRANSMISSÃO 


- PROTEÇÃO FRENTE À ERROS 
« SEGURANÇA NA COMUNICAÇÃO il 


Figura 1 — Serviços de comunicação de dados. Fonte: BARRADAS, O. e RIBEIRO, 
Marcelo P., Sistemas analógicos-digitais, Rio de Janeiro, LTC, 1980, p 989-990. 











e coleta e disseminação imediata da 
informação, à velocidade eletrônica. Por 
exemplo, em um banco eletrônico, o 
saldo da conta do cliente é atualizado 
instantaneamente após cada transação, 
ficando imediatamente disponível a to- 
das as agências do país, tornando o 
cliente um cliente de todo o banco e 
não de uma única agência; 

e redução dos custos operacionais, 
através de centralização do processa- 
mento; 

e maior segurança — nos grandes siste- 
mas existem sempre dois ou mais compu- 


tadores em localizações diferentes, um 
deles em reserva (stand-by) e em condi- 
ções de assumir instantaneamente o 
processamento. 

As aplicações da comunicação de da- 
dos são, também, muito variadas, e os 
serviços mais importantes são sumariza- 
dos na Figura 1. Para tais aplicações 
existem dois tipos básicos de ligações a 
serem estabelecidas: o primeiro, chama- 
do em-linha (on-line) é aquele no qual a 
informação é trocada diretamente com 
o computador, tipicamente em uma 
aplicação de consulta realizada por um 


Figura 3 — Modelo de um sistema de comunicação de dados (ETD= Equipamento 
terminal de dados; ECD=Equipamento de comunicação de dados). 
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terminal de caixa bancário ou de balcão 
de reserva de passagens; o segundo, 
chamado fora-de-linha (off-line), é aque- 
le em que as informações são “estoca- 
das” temporariamente em um dispositi- 
vo qualquer de memória para serem 
posteriormente processadas pelo compu- 
tador, tipicamente a entrada de progra- 
ma remoto ou o processamento remoto 
por lotes. 


ESTABELECIMENTO 
DE UM MODELO DE SISTEMA 
DE COMUNICAÇÕES 


Para melhor situar o leitor, nosso 
passo inicial será estabelecer um modelo 
que nos permitirá acompanhar todo o 
processo da comunicação, da origem ou 
fonte ao destino ou destinatário (ver 
Figura 2). 

O objetivo de qualquer sistema de co- 
municações é o transporte da informa- 
ção ou mensagem, em forma tão fiel 
quanto possível, entre a fonte e o destina- 
tário. Como a fonte e o destinatário 
podem estar a grande distância um do 
outro, é necessário que haja um canal, 
encarregado do transporte propriamente 
dito da mensagem, através de um meio, 
evidentemente com alguma perda de 
intensidade (atenuação), alteração de 
suas características (distorção) e acrésci- 
mo de componentes não existentes na 
mensagem original (ruído, representado 
na figura como uma fonte geradora ex- 
terna). O emissor encarrega-se de colo- 
car a mensagem em uma forma apropria- 
da à transmissão pelo meio, através de 
um processo chamado modulação, além 
de prover a necessária energia para com- 
pensar as perdas durante o trajeto. Por 
outro lado, o receptor retira a energia 
do meio e recupera a mensagem (demo- 
dulação). Como, via de regra, a natureza 
da informação gerada pela fonte não é 
adequada ao acionamento do canal, sur- 
ge a necessidade de mais dois elementos, 
que completarão o nosso modelo: o 
codificador, que pode dar à mensagem 
uma forma totalmente diversa, porém a 
ela inequivocamente relacionada — a le- 
tra A, por exemplo, poderia ser transfor- 
mada no código 11000 — e o decodifica- 
dor, no outro extremo do canal, encar- 
regado de reconstituir a informação. 

No caso particular da comunicação 
de dados, o sistema de comunicações 
pode ser mais apropriadamente descrito 
pelo modelo da Figura 3. Nela, os blo- 
cos ETD (Equipamento Terminal de 
Dados) representam a fonte e o destina- 
tário, que podem ser dois computadores 
ou um terminal e um computador. Os 
blocos ECD (Equipamento de Comuni- 
cação de Dados), por sua vez, represen- 
tam todo o equipamento necessário à 
adequação do sinal ao meio de transmis- 
são e vice-versa, realizando as funções 
do codificador/emissor e do receptor/ 
decodificador. 


“ 
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A VIAGEM DOS DADOS 





Figura 4 — Transmissão paralela. 


TIPOS DE TRANSMISSÃO 


Existem dois modos básicos segundo 
os quais os dados podem ser transmiti- 
dos entre dois pontos: o serial e o para- 
lelo. Imaginemos a transmissão de 1 
byte (8 bits) *1 entre um registro de 
origem e outro de destino (ver Figura 
4). Se ligarmos cada um dos bits do re- 
gistro de origem ao bit correspondente 
do registro de destino, avisarmos ao re- 
gistro de destino, de alguma forma, que 
os dados estão prontos no registro de 
origem, e permitirmos ao registro de 
destino aceitar esses dados, teremos uma 
transferência simultânea de todos os 
bits, o que caracteriza uma transmissão 
paralela. Se, por outro lado, tivermos 
um único fio ligando os dois registros e 


*1. Nota do autor — Um bit é igual a um diígi- 
to binário, isto é, a menor unidade de infor- 
mação existente em um sistema de compu- 
tação: pode assumir, a cada instante, apenas 
um entre dois valores possíveis, 0 e 1. 


Z 





permitimos que os bits passem um de 
cada vez, em sequência, rumo ao regis- 
tro de destino, teremos uma transmissão 
serial. Na Figura 5, os bits 1,2 e 3 já 
atingiram o destino, o bit 4 está a cami- 
nho, e os bits 5, 6, 7 e 8 aguardam, ain- 
da na origem, a sua vez. Evidentemente, 
a transmissão paralela é muito mais rá- 
pida mas, em compensação, a serial é 
muito mais barata, por necessitar de 
apenas uma linha de dados — mais uma 
vez o eterno compromisso da Engenha- 
ria: economizar tempo ou dinheiro? De 
modo geral, o problema é resolvido 
assim: no interior do computador, no 
movimento de dados entre registros da 
UCP ou entre UCP e memória, onde a 
velocidade é fator fundamental e as dis- 
tâncias são curtíssimas, a transmissão é 
paralela; já a comunicação entre um 
computador e um terminal é serial, pois, 
além da economia da interconexão, os 
dados, mesmo transmitidos serialmente, 
se deslocam com velocidade muito 
maior que a de leitura ou de digitação. 
Resumindo, praticamente toda a trans- 
missão de dados externa ao computador 
é feita de modo serial. É evidente que, 
em qualquer caso, todos os caracteres 
devem ter o mesmo tamanho, ou seja, o 
mesmo número de bits. Mais adiante 
falaremos nos códigos usados na trans- 
missão de dados. 

A transmissão serial pode ser feita, 
ainda, de duas formas: síncrona e assín- 
crona. Na forma síncrona, os caracteres 
são transmitidos em um fluxo contínuo, 
em um único bloco, existindo uma per- 


———+» 
Sade aBEZSS 
fio 


origem 


destino 





Figura 5 — Transmissão serial. 


Sa - Transmissão síncrona 


lofijo o co ofriirazaloofijoooofrr11111121 


REPOUSO || |-———— A JREPOUSO] | |——— B——., | REPOUSO 
| 


PARTIDA. PARADA! 


6b - Transmissão assíncrona 


PARTIDA. 





PARADA. 


Figura 6 — Exemplos de transmissão dos caracteres A e B no modo síncrono (6a) e 
no modo assincrono (6b), com 1 bit de parada e paridade ímpar. Note que as esca- 


las são diferentes. 
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feita sincronização entre o emissor e o 
receptor, de modo que este possa sem- 
pre saber o momento exato de “ler” um 
bit, o início e o término de um caráter 
e o início e o término da mensagem. O 
sincronismo pode ser obtido através da 
transmissão de um trem de pulsos de re- 
lógio (clock) em uma linha separada (ver 
Figura 6) ou dotando-se o receptor de 
um clock estável, amarrado em pulsos 
de sicronismo transmitidos no início da 
mensagem. Note que os caracteres são 
sempre transmitidos, no modo síncrono, 
sem qualquer intervalo entre eles, o que 
torna este modo impossível de ser utili- 
zado na ligação entre um terminal e um 
computador: ninguém pode digitar tão 
rapidamente. Na transmissão assíncrona, 
os caracteres podem ser transmitidos 
aleatoriamente no tempo, com qualquer 
intervalo entre eles, e sem limitação do 
tamanho da mensagem. Sempre que for 
necessário transmitir um caráter, o emis- 
sor se encarrega de avisar ao receptor o 
início da transmissão, através de um bit 
adicional (start bit = bit de partida, cor- 
respondente a uma interrupção do sinal 
na linha) precedendo o código corres- 
pondente, e o fim da transmissão, 
através de um ou dois bits de parada 
(stop bits, correspondendo à condição 
de marca ou de repouso, isto é, existên- 
cia de sinal na linha) conforme mostra- 
do na Figura 6. Desta forma, o receptor 
pode relaxar, sabendo que será sempre 
avisado da transmissão de um caráter 
com a antecedência suficiente para que 
possa, através de seu próprio clock, sin- 
cronizar seus circuitos para ler cada 
um dos bits no momento apropriado. A 
transmissão assíncrona tem como princi- 
pal desvantagem em relação à síncrona 
uma má utilização do canal. Em com- 
pensação, a transmissão síncrona, além 
de muito mais dispendiosa em termos de 
equipamento, não pode ser usada em 
muitos casos, como o mostrado acima pa- 
ra O terminal. Na ligação que mais nos 
interessa, ou seja, entre um micro do- 
méstico ou profissional e outro micro 
ou uma rede, a transmissão sempre será 
serial e assíncrona. 


O MEIO DE TRANSMISSÃO 


Para que uma determinada informa- 
ção possa ser transmitida entre dois 
pontos, a mesma tem que ser superposta 
a um sinal de natureza elétrica, que terá 
um ou mais de seus parâmetros altera- 
dos de acordo com a natureza da infor- 
mação. Normalmente o sinal elétrico 
utilizado é uma onda senoidal cuja am- 
plitude instantânea é dada por x(t)= A 
cos (2) 1 ft+ O ), ondetéo tempo em 
segundos e A (amplitude), f (frequência) 
e & (fase) são os parâmetros que pode- 
mos fazer variar. Se variarmos O parâme- 
tro desejado de forma contínua, de 
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Figura 7 — Distorção do sinal digital em uma linha telefônica. 


modo a constituir uma réplica da infor- 
mação original, o sinal resultante será 
dito um sinal analógico; se, por outro 
lado, permitirmos que o parâmetro a ser 
variado assuma somente um certo núme- 
ro de valores, chamados de valores ou 
níveis discretos, estaremos em presença 
de um sinal digital. O caso mais conhe- 
cido de sinal digital, aquele que possui 
apenas dois níveis, é o sinal binário. Os 
sinais podem, ainda, ser submetidos a 
processos de codificação, com o resulta- 
do final diferindo completamente do 
sinal inicial; o importante é que o con- 
teúdo da informação se mantém inalte- 
rado e pode ser integralmente reconsti- 
tuído no destino. 

O processo segundo o qual alteramos 
um ou mais dos parâmetros de um sinal 
é chamado modulação, e o sinal modifi- 
cado, que vai transportar a nossa infor- 
mação até o destino, é chamado de onda 
portadora. 

O meio de transmissão por excelência 
para a transmissão de dados é o canal 
telefônico comum, acessível através de 
um par de fios de nossa linha telefônica, 
projetada e instalada para a transmissão 
de voz em forma analógica. 

A voz humana é um sinal complexo e 
a sua energia está distribuída de modo 
não uniforme em uma faixa de frequên- 
cias compreendida entre 15Hz e 15000 
Hz, aproximadamente, com a maior 
concentração ocorrendo entre 300Hz e 
3400Hz. Por questões de economia, os 
canais de voz transmitem apenas essa 
faixa de frequências, chamada de banda 
passante, largura de banda ou largura de 
faixa da linha (B=f, — f, =3100 Hz). A 
banda passante é a principal caracterís- 
tica de um canal de voz, sendo a respon- 
sável pela velocidade máxima de trans- 
missão, em bits por segundo (bps), do 
canal. Os canais telefônicos podem ser 
comutados (o destino é atingido através 
de uma rota escolhida ao acaso, em fun- 
ção das disponibilidades da rede telefô- 
nica, como em uma ligação comum), ou 
privativos (dedicados, alugados), consti- 
tuindo uma ligação ponto-a-ponto, dis- 
ponível ao usuário 24 horas por dia. A 
escolha entre comutada e privativa 
depende de uma série de fatores, princi- 
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palmente do volume de tráfego e, como 
regra geral, a linha privativa oferece me- 
lhor qualidade de transmissão. Embora 
teoricamente muito maiores, as veloci- 
dades máximas de transmissão obtidas 
em linhas telefônicas ficam, na prática, 
limitadas a 9600 bps, em virtude de 
outras características restritivas, tais 
como a atenuação, distorção, ruído, eco 
e estabilidade. O leitor mais curioso no 
assunto poderá queimar pestanas duran- 
te muitas horas consultando a bibliogra- 
fia citada. 


O EMISSOR E O RECEPTOR 


Já vimos que as linhas telefônicas 
foram projetadas para transmitir fre- 
quências de voz na faixa de 300-3400 
Hz, e que os sinais de voz são sinais 
analógicos. Se injetarmos em uma linha 
telefônica os sinais binários oriundos de 
nosso computador, o resultado na outra 
extremidade será o mostrado na Figura 
7: ao invés de um sinal claro, de transi- 
ções bem nítidas, obteremos um sinal 
distorcido, no qual as transições se 
mostram bem atenuadas, e que poderá 
ser mal interpretado pelo equipamento 
de recepção, que terá eventualmente di- 
ficuldade de distinguir entre os níveis O 
e 1.4 distorção será tanto maior quanto 
mais estreita for a banda passante da li- 
nha, pois a decomposição de um sinal 
binário nos mostra que nele estão pre- 
sentes componentes de altíssima fre- 
quência, as quais serão brutalmente ate- 
nuadas ao passarem pela linha, sendo 
virtualmente inexistentes na saída. 
Como seria economicamente inviável 
aumentar a largura de banda das linhas 
telefônicas (elas chegaram primeiro, 
lembre-se), e já que elas atendem perfei- 







tamente à finalidade para a qual foram 
projetadas, a solução mais inteligente e 
que foi a adotada é a de adaptar o sinal 
à linha, o que pode ser feito através de 
um modem. O modem, cujo nome é for- 
mado pela contração das palavras 
modulador e demodulador, é um 
equipamento bidirecional que, instalado 
nas duas extremidades de um canal de 
comunicação de dados, tem por função 
adequar um sinal binário oriundo de um 
computador às características da linha 
(funcionando como emissor), e vice-versa 
(funcionando como receptor). Para a 
maioria dos efeitos práticos, o modem é 
o próprio ECD da Figura 3. 

O tipo mais comum de modem é o 
chamado modem analógico, através do 
qual os níveis binários 1 e O (também 
chamados de marca e espaço, respecti- 
vamente) são transformados em tons se- 
noidais puros, que vão modular uma 
portadora senoidal cuja frequência está 
dentro da banda passante Ga linha tele- 
fônica, podendo, então, ser transmitida 
praticamente sem distorção. Na extremi- 
dade de destino, um outro modem se 
encarrega de demodular esta portadora, 
extraindo da mesma os tons de marca e 
de espaço, que, após reconvertidos em 
níveis binários, serão entregues ao com- 
putador (ver Figura 8). Simples, não? 

Dado o caráter universal das redes de 
telecomunicações, torna-se necessária 
uma normalização ou padronização rigo- 
rosa dos equipamentos. Assim, a União 
Internacional de Telecomunicações 
(UIT), da qual o Brasil é membro, atra- 
vés de seu Comitê Consultivo Interna- 
cional de Telegrafia e Telefonia (CCITT) 
estabeleceu o chamado padrão CCITT 
de modems, também conhecido como 
padrão europeu, adotado pelo Brasil. 
Outros países, liderados pelos Estados 
Unidos, utilizam o chamado padrão 
BELL, ou padrão americano, normali- 
zado pelo Bell System. 


As normas estabelecidas pelo CCITT 
dizem respeito, basicamente, às taxas 
(ou velocidades) de transmissão da in- 
formação, sendo as mais usuais as de 
150, 300, 600, 1200, 2400, 4800 e 
9600 bps, e aos tipos de modulação, 
normalmente em frequência (FSK= Fre- 
quency Shift Keying = modulação por 
desvio de frequência) ou em fase (PSK 
=Phase Shift Keying= modulação por 


sinal 


analógico 


sinal digital | omnes | sinal digital 


TRANSMISSÃO 





Figura 8 — Modulação e demodulação do sinal digital. 


A VIAGEM DOS DADOS 


desvio de fase), este para velocidades 
acima de “1200 bps. Ainda um mesmo 
modem pode ter velocidades diferentes 
para transmissão e recepção: o tipo uti- 
lizado para acesso ao Videotexto trans- 
mite a 75 bps e recebe a 1200 bps “2. 
No campo da computação pessoal, con- 
tudo, a tendência é adotar a comunica- 
ção serial, assíncrona, a 300 bps. Existe 
uma certa tendência em confundir bps 
e baud como unidades de medida de 
velocidade de transmissão. A unidade 
baud, que recebe este nome em homena- 
gem a Baudot, um dos pioneiros das te- 
lecomunicações, é mais corretamente 
aplicada à medida de velocidade de 
transmissão de sinais telegráficos. Baud 
representa o número de vezes que o 
estado da linha se modifica por segundo. 
Como, na maioria das aplicações de tele- 
processamento, a condição da linha é 
alterada exatamente pela presença ou 
ausência de sinal, o número que mede a 
velocidade em bps é o mesmo que a que 
mede em baud, daí a confusão. Por via 
das dúvidas, a melhor maneira de nunca 
errar é expressar a velocidade sempre em 
bps. 

Existe ainda um tipo de modem, co- 
nhecido como modem digital. A rigor 
este tipo não deveria ser chamado de 
modem, uma vez que não realiza a mo- 
dulação/demodulação do sinal, e sim 
uma simples mudança na sua representa- 
ção digital (codificação) e na representa- 
ção elétrica (forma do sinal), transfor- 
mando-o em um outro sinal digital, po- 
rém mais adequado às condições da li- 
nha. Embora seu alcance seja muito res- 
trito, não ultrapassando 300m, constitui 
uma solução econômica e aceitável para, 
por exemplo, ligações dentro de um 
mesmô prédio. Os modems digitais não 
são normalizados pelo CCITT, não ha- 
vendo, portanto, compatibilidade entre 
os modelos dos diversos fabricantes. 

O alcance dos modems digitais dimi- 
nui conforme aumenta a velocidade de 
transmissão. Transmitindo a 300 bps, 
pode-se operar com um modem digital 
em distância de até 4.500m. Já a 600 
bps, o alcance deste equipamento dimi- 
nui para 300 metros. Por suas caracterís- 
ticas, os modems digitais em geral são 
bem mais baratos que os analógicos. 

Outro equipamento não padroniza- 
do pelo CCITT é o acoplador acústico, 
dotado de um bocal emissor e outro re- 
ceptor nos quais o monofone do apare- 
lho telefônico é encaixado diretamente, 


* 2. Nota da redação — A variação entre as ve- 
locidades de recepção e emissão de dados 
pode ser explicada uma vez que o número de 
informações que o usuário do sistema Video- 
texto deverá fornecer são poucas, já que ele 
basicamente apenas escolhe as páginas que 
quer acessar. Já as informações provenientes 
do banco de dados são muitas, o que requer 
uma velocidade maior na transmissão. 
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%a - Ligação simples 


9 - ligação semi-duplex 


E m— 


DD 
9 - ligação duplex a 2 fios 


E=t— 


94 - ligação duplex a 4 fios 
Figura 9 — Modos de ligação. 


com toda a transferência de informação 
ocorrendo pelo ar, sem qualquer ligação 
elétrica com a rede telefônica. Além de 
sujeitos a interferências de ruídos exter- 
nos, causados muitas vezes pelo fato do 
fone do aparelho telefônico não se adap- 
tar ao acoplador, sua velocidade de 
transmissão é relativamente baixa, não 
ultrapassando 300 bps. 

A ligação entre os modems pode ser 
feita ainda de três modos (ver Figura 
9): o modo simplex, sem utilidade práti- 
ca, pois permite a comunicação apenas 
em um único sentido; o modosemi-du- 
plex (half-duplex), que permite a ligação 
nos dois sentidos, porém não simulta- 
neamente; e finalmente, o modo duplex 
(full-duplex), permitindo a comunicação 
simultânea nos dois sentidos, e que pode 
ser a dois fios (exatamente como o tele- 
fone a que estamos habituados, utili- 
zando um circuito híbrido ou um aco- 
plador direcional para separar os sinais 
emitido e recebido) ou a quatro fios, 
mais confiável porém mais caro, por ne- 
cessitar de duas linhas separadas. 


O CODIFICADOR 
E O DECODIFICADOR 


Em nosso sistema de comunicação de 
dados as funções de codificação e de 
decodificação são normalizadas pela 
EIA — Electronic Industries Associa- 
tion, dos EUA, através do Padrão RS 
232-C, compatível com o CCITT, cuja 
realização física é conhecida como inter- 
face padrão RS 232-C (o “C” significa a 
terceira versão) e que pode ser identifi- 
cada pela existência, nos equipamentos 
que a contém, de um conector padrão 
de 25 pinos, de forma trapezoidal. 

A interface padrão RS 232-C é a res- 
ponsável pela interconexão entre o ETD 
e o ECD, em forma bilateral, definindo 
as características elétricas dos circuitos 
de transmissão e recepção de dados, os 
seus níveis de tensão e os sinais de dados 
e de controle necessários. Na transmis- 


são de dados, o estado lógico 1 (marca) 
é definido como sendo uma tensão nega- 
tiva entre —15V e —25V, enquanto que 
o estado O (espaço) é definido como 
uma tensão positiva entre +15V e +25V, 
tudo referenciado ao “terra” ou “massa” 
(ponto comum) de sinal e com previsão 
de um queda de tensão de +12V ao lon- 
go das linhas de transmissão. Como os 
receptores são obrigados a reconhecer 
sinais de no mínimo +3V, sobra uma 
margem de segurança (região de transi- 
ção) de 6V entre os níveis 1 e 0, o que 
contribui para aumentar a imunidade a 
ruídos e a diferenças de potencial de 
massa. 


OS CÓDIGOS 


Um dos mais importantes passos para 
o desenvolvimento da comunicação de 
dados foi a padronização dos códigos, 
visando a que os diversos equipamentos 
pudessem “falar” entre si. O primeiro 
esforço de padronização data de 1963, 
através do código ASCII63 (ASCII é a 
sigla de American Standard Code for 
Information Interchange —, Código Pa- 


drão Americano para Intercâmbio de In- 


formação), e a versão atual do código 
ASCII, surgida em 1968, adotada em 
âmbito mundial. Ver Figura 10. 

O código ASCII é um código de de 7 
bits, possibilitando um total de 128 
(= 2” ) combinações válidas. A esses 7 
bits é adicionado um oitavo bit, chama- 
do bit de paridade, com o objetivo de 
diminuir a incidência de erros na trans- 
missão. Por exemplo, o bit de paridade 

derá ser O ou 1 conforme o número 
de bits 1 tlo código considerado seja par 
ou ímpar — o receptor conta os bits 1 
de cada código e, caso a contagem não 
seja um número par (paridade par), 
envia um sinal ao emissor para que este 
transmita novamente o código. 
evidente que se, devido ao ruído, houver 
a inversão de dois bits quaisquer, o erro 
não poderá ser detectado por este méto- 
do. Os bits adicionais introduzidos nos 
códigos, como o bit de paridade, não 
contém informação, sendo chamados de 
redundantes. Quanto maior for a redun- 
dância de um código, menor será a efi- 
ciência do canal, definida como o resul- 
tado da divisão do número de bits de 
informação (os bits úteis) pelo número 
total de bits transmitidos. 

Outros códigos normalmente usados 
em comunicação de dados são o Baudot 
(para teleimpressores) e o EBCDIC 
(Extended Binary Coded Decimal Inter- 
change Code), usado nos equipamentos 
IBM. 

Além da mensagem propriamente 
dita, deve transitar pelo canal um cons- 
tante fluxo de informações entre as má- 
quinas envolvidas na comunicação. Esse 
fluxo de informações, que é o responsá- 
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CÓDIGO: b. bb. b, b, b, b 


7 


E NPLES REAL 


CONFORME OS BITS DA 


TABELA 


BITS b, b, b, b 


4 


LEGENDA: 


NUL 
soH 
STX 
ETX 
EoT 
ENQ 
ACK 
BEL 
Bs 

HT 

LF 


all zeros 

start of heading 
start of text 

end of text 

end of transmission 
enquiry 
acknowledgement 

bell or attention signal 
back space 

horizontal tabulation 
line feed 


MM a 


Figura 10 — Código ASCII. Fonte: BARRADAS, 


1980, p 1049. 


vel pelo estabelecimento, manutenção, 
controle e desconexão da comunicação, 
recebe o nome de protocolo (handsha- 
king, “aperto de mãos”). As duas colu- 
nas da esquerda da Figura 10 mostram 
os caracteres de controle do código 
ASCII, e seus significados constam da 
legenda. Remeto o leitor interessado, 
mais uma vez, à bibliografia especializa- 
da, para maior aprofundamento no 
assunto. 


CONCLUSÃO 


Espero que este artigo tenha conse- 
guido satisfazer a curiosidade do leitor 
apenas curioso e que tenha fornecido 
àquele mais interessado, desejoso de 
maiores conhecimentos, o embasamento 
necessário à leitura dos papiros especia- 
lizados no assunto. 

Para finalizar, um lembrete: de nada 
adianta toda a parafernália de equipa- 
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BITS b, be bs 


[ 000 | 001] 010 | 011/ 100] 101 [110/11] 
0000[nuL| pre| sp | 0 [e] p |. |p| 


o 


olo 
oo 
lh 
nIio 
Lo, 

Q 
tw 


o 
H 
o 
o 
bo, 


ololo 
[o o 
nijnio 
HIS|H 
iu 
Bis 
wiz 


2 1 


Hm 
o 
o 
[e] 


oa 
olo 
Elo 
om 


Ho 
o 
[a 
[mA 


[rx | 
Er | 
For | 
| ENO] 
[es | 
EM 
per | 


H 
[7 
o 
o 


1101 


CONTROLE 
vertical tabulation 


shift out EM 


devide control 1 Fs 
devide control 2 cs 
devide control 3 RS 
devide control 4 us 
negative acknowledgement DEL 





mentos e técnicas de comunicação de 
dados se não dispusermos do software 
de comunicação, indispensável ao geren- 
ciamento de todo o processo e, por si 
só, assunto para muitas e muitas pági- 
nas. Por uma questão de fidelidade ao 
objetivo, que foi o de abordar apenas os 
aspectos técnicos da comunicação, a sua 
não citação no texto foi intencional. 
De qualquer modo, aqui, como em qual- 
quer outra aplicação, é o software que 
torna o computador em algo útil — sem 
ele, o nosso computador não passará de 
um enfeite (?) de mesa ou mero peso de 
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Eis as diferenças e algumas vantagens em se conjugar 
o verbo compilar, ao invés de interpretar, em se tratando 


de linguagem BASIC 








BASIC interpretado 
x compilado 


Marcelo Renato Rodrigues 


sistema completo de progra- 

mação BASIC deve traduzir 

as suas instruções BASIC em 

instruções que o microcom- 
putador entenda, ou seja, código-objeto. 
Os meios empregados para fazer essa 
conversão dependem do sistema BASIC 
que você tem disponível, normalmente 
o interpretador BASIC. 

O interpretador converte cada instru- 
ção para o código-objeto, executando-a 
imediatamente após a conversão. Isso é 
feito toda a vez em que o programa é 
rodado. O compilador, por outro lado, 
converte todo o programa em código- 
objeto. Então, você terá o seu programa 
sob duas formas: o programa-fonte, em 
BASIC, e o programa-objeto, em lingua- 
gem de máquina. Este último, quando 
submetido, dispensará a conversão das 
instruções, atividade do interpretador. 
Para melhor entendimento desta análi- 
se, consideremos o BASIC da linha TRS 
80, modelo III e o compilador BASIC 
da Radio Shack, o RSBASIC. 


VANTAGENS DO COMPILADOR 


O RSBASIC traduz o programa-fon- 
te numa linguagem intermediária, isto é, 
entre o BASIC e a linguagem de máqui- 
na. Entre as vantagens enumeradas pelo 
fabricante duas merecem atenção: só o 
autor do programa poderá conhecê-lo, 
pois é o único dono do programa-fonte 
e a linguagem intermediária é desconhe- 
cida; além de sua economia de memória 
e espaço em disco. 

A primeira tem importância para o 
programador que pretende comercializar 
os seus aplicativos. A segunda vantagem 
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é ofuscada pelo grande espaço que o 
compilador ocupa na memória. Mas a 
vantagem é absolutamente verdadeira 
com relação aos arquivos em disco. 

O usuário do compilador será inicial- 
mente surpreendido, tanto pelo maior ri- 
gor sintático das instruções — por exem- 
plo, observância dos espaços entre as 
palavras componentes das instruções —, 
quanto pelos produtos documentais do 
processo de compilação, como a lista- 
gem comentada do programa, o mapa 
das variáveis e a listagem de referência 
cruzada, na qual são relacionadas as va- 
riáveis e as linhas do programa-fonte 
onde elas são referenciadas (figura 1). 
Tais produtos são familiares ao usuário 
que trabalhou ou trabalha com compu- 
tadores de maior porte. 


DIFERENÇAS DE LINGUAGEM 


Um aspecto importante a ser demons- 
trado é quanto às diferenças de linguagem 
dos dois processos. A primeira delas é com 
relação à maior precisão do BASIC com- 
pilado quanto à alocação de espaço na 
RAM, inexistindo a instrução CLEAR n, 


que executa a alocação global de espaço 


para strings. Assim, a reserva de espaço é 
feita variável a variável, através das instru- 
ções DIM ou STRING. Não havendo es- 
sa descrição, o compilador considerará 
o default de 255 bytes por variável. 
Ainda com relação à definição de va- 
riáveis, outra diferença é o número de 
dígitos para o nome da variável, que pas- 
sa de três para seis, permitindo ter, por 
exemplo, duas variáveis distintas — SAL- 
DOI e SALDO? — impossível no inter- 
pretador, que consideraria para os dois 





casos apenas a variável SAL. E entre as 
instruções que atribuem valores às variá- 
veis, há três diferenças significativas. 

A primeira delas é uma variação do 
RESTORE, que permite apontar a se- 
quência DATA a partir da qual-nos inte- 
ressa restaurar, através do apontamento 
do número da linha que a contém. Não 


-se fornecendo o número da linha, a ins- 


trução funciona exatamente da forma 
usual. 


A segunda é a instrução SWAP, que 
troca valores entre duas variáveis, muito 
empregada em reordenações. A terceira 
e última, a instrução INPUT, embora 
continue sendo de uso incomodo, foi 
aperfeiçoada com formatação dos dados 
de entrada e especificação do número de 
dígitos da variável. 


SEGMENTAÇÃO DE PROGRAMAS 


Entre os dois sistemas, existem dife- 
renças significativas, que certamente fa- 
rão a cabeça de usuários mais exigentes. 
Por exemplo, são disponíveis dois recur- 
sos poderosos voltados à segmentação 
de programas durante a execução: a trans- 
ferência de controle para subprogramas 
e encadeamento de programas. 

Subprogramas são sub-rotinas mais 
potentes que as usuais, pois trabalham 
com dados armazenados sob diferentes 
nomes de variáveis. Assim como as sub- 
rotinas comuns. os subprogramas são 
chamados pelo programa principal e, 
após sua execução, retornam a ele. O 
exercício de sua aplicação revela as se- 
guintes vantagens em relação à sub-roti- 
na convencional: 
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RSBASIC ver 


09/11/84 19:18:17 


EXEMPLO/BAS 


PAGE 1 


0000 00010 REM *PROGBRAMA EXEMPLO COM UTILIZACÇAO+ 


0000 00020 REM + 
0000 00030 REM + 
0000 00040 REM + 
0000 00050 DIM SOBRE$2Z0 


DO COMPILER BASIC 
O PROGRAMA SOLICITA NOME - 
E SOBRENOME 


0000 00060 PRINT “QUAL E* SEU SOBRENOME?" 


000F 00070 PRINT CRT(2- 
902D 00080 PRINT CRT( 
0040 O PRINT CRT( 
VOSE 00100 PRINT CRT(12Z 
0079 00110 END 
SYMBOLIC MEMORY MAP 
SCALARS 
00D6 NOME STRING+25S 
CROSS REFERENCE LISTING 
SCALARS 
NOME 
SOBRE 
FINAL SUMMARY 

245 

278 

1 
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Figura 1 


e O subprograma não é chamado pelo 
número da linha, mas pelo nome; 

e Os dados transferidos ao subprogra- 
ma não necessitam de adequação quanto 
ao nome das variáveis; basta apenas exis- 
tir compatibilidade entre elas, pois o 
mesmo dado terá um nome no programa 
principal e outro no subprograma; 

e Pode-se transferir matrizes ao subpro- 
grama. 

O subprograma é compilado com o 
programa principal, sendo integrante de- 
le, disputando espaço na RAM, mas adi- 
cionando incrível flexibilidade a seus 
programas. 

Já o encadeamento de programas 
(CHAIN) executa a segmentação sem a 
ocupação simultânea de espaço na RAM. 
É um método de dividir um programa 
muito grande em outros menores e menos 
complexos, sendo cada um deles carrega- 
do na memória e executado separada- 
mente, embora trocando dados comuns. 


ENTRADA/SAIDA PARA 
TECLADO E MONITOR DE VÍDEO 


A formatação de dados para entrada/ 
saída é um grande avanço e a saída via 


EM DISCO 





Figura 2 
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* O SEU NOME?" 
“s NOMES: " “5 SOBRESS “!” 


SOBRE STRING+20 





monitor tem duas funçoes especiais para 
posicionamento do cursor. A função CRT 
move O cursor para uma específica loca- 
ção linha coluna e a função CRTR (x,y) 
move O cursor X linhas e y colunas, a 
partir da posição atual. É o adeus ao 
PRINT O, 

São acrescidas, ainda, funções para 
localização da posição do cursor CRTy 
e CRTx, que fazem retornar os valores 
da linha-coluna aonde se encontra o cur- 
sor, e uma função para leitura de área 
especificada no vídeo. 


ENTRADA/SAIDA PARA 
ARQUIVOS EM DISCO 


Diferenças importantes são observa- 
das na manipulação de arquivos em dis- 
co. Além de criar arquivos sequenciais 
(figura 2) e randômicos ou diretos (figura 
3), o RSBASIC elabora o arquivo ISAM 
(Indexed Sequential Acess Method), isto 
é, o arquivo sequencial indexado utili- 
zado pelos sistemas maiores, nos quais 
os registros são alcançados por chaves de 
acesso e não pelo número de registro. 
Por exemplo, num arquivo de nomes e 
endereços, a chave de acesso pode ser o 
sobrenome. Na leitura, os registros são 


“ade 


Figura 3 


apresentados segundo a classificação, em 
ordem alfabética, da chave de acesso, 
como no exemplo da figura 4, no qual a 
chave de acesso é a primeira letra do 
nome. 

De uma forma geral, a entrada/saída 
de arquivos pode ser string ou numérica, 
não havendo necessidade de converter 
dados numéricos em strings para gravar, 
e vice-versa, após a leitura. À inexistên-. 
cia da instrução FIELD facilita também 
a leitura-gravação de vetores. Para entra- 
da/saída há três métodos: 

e Seriado — as vírgulas separam os cam- 
pos dos registros; 

e Formatado — é empregada imagem- 
padrao para controlar a disposição dos 
campos; 

e Binário — os dados numéricos são ar- 
quivados exatamente como estão na me- 
mória. 

Além dessas, há outras diferenças mais 

ou menos sutis em instruções, funções e 
comandos que, se expostos, levariam a 
um tratamento mais aprofundado. Com 
relação às facilidades de grande interesse, 
há o RUNTIME, subsistema que apenas 
roda programas, ocupando menor espa- 
ço na memória; o BEDIT, eficiente edi- 
tor BASIC; e o DEBUG, depurador de 
programas. 
Como se vê, há numerosas vantagens 
com relação aos recursos de linguagem, 
tornando o BASIC bem mais potente. 
Mas como no Brasil o emprego do BA- 
SIC compilado ainda é restrito, surgem 
problemas de disponibilidade de aplica- 
tivos no mercado e de incompatibilida- 
des, pois programas estruturados e desen- 
volvidos em BASIC compilado não são 
compatíveis com o BASIC interpretado 
e vice-versa. 


Marcelo Renato Rodrigues é engenheiro eletri- 
cista formado pela Escola Politécnica da Uni- 
versidade de São Paulo, em 1968. Trabalha na 
Companhia Energética de São Paulo (CESP) 
como Assessor de Planejamento da Vice-Pre- 
sidência de Produção de Transmissão de Ener- 
gia Elétrica. 
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Compartilhar recursos de custos elevados e informações 
produzidas por diversas estações são algumas vantagens obtidas 


com o uso de redes locais 








Redes locais 


Amaury Moraes Junior 


ma rede de computadores consiste em um certo nú- 

mero de computadores interligados por um sistema 

de comunicação. Dentro dessa filosofia, surgiu mais 

recentemente um tipo particular de rede, chamado 
Rede Local (Local Area Network — LAN). Nessas redes, as 
principais características são a extensão geográfica, de no má- 
ximo poucos quilômetros; a alta taxa de transmissão, de 5 a 10 
Mb/segundo; e a ausência de um processador central, isto é, to- 
dos os elementos conectados à rede possuem capacidade de 
processamento. 

Na medida em que as organizações (bancos, indústrias, hos- 
pitais etc.) começaram a possuir um maior número de compu- 
tadores, principalmente com o advento dos computadores de 
baixo custo, tornou-se necessário que estes equipamentos se 
interconectassem, para compartilhar recursos e informações. 

É importante A puta que embora o custo dos computado- 
res tenha diminuído constantemente, o preço dos equipamen- 
tos periféricos (discos, impressoras dio) não acompanharam 
esta redução, e seu alto custo justifica o seu compartilhamento 
entre vários usuários. 

Entre as vantagens na utilização de uma rede local, pode- 
mos citar o aumento dos recursos físicos (periféricos) dispo- 
níveis para cada estação; maior integração entre aplicações, 
através do compartilhamento de informações entre as diver- 
sas estações da rede; confiabilidade elevada, caracterizada pela 
inexistência de um elemento centralizador (cuja falha compro- 
meteria o funcionamento global do sistema); baixo custo para 
pequenas configurações; e, por fim, o crescimento gradativo 
conforme as necessidades computacionais da organização. 


EM TRÊS NÍVEIS 





Uma rede local pode ser implementada em três diferentes 
níveis de tecnologia. O mais elevado oferece maiores benefí- 
cios, tendo, em contrapartida um custo também elevado e im- 
plementação mais difícil. Em resumo, os níveis de uma rede 
são os seguintes: 

e Nível 1 — O objetivo neste estágio é o de que vários usuá- 
rios possam compartilhar periféricos como impressoras, plot- 
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ters, modems, equipamentos geralmente de preços elevados 
e que, utilizados por mais de uma estação têm seu preço real di- 
vidido pelos departamentos. E devido ao baixo volume de saí- 
da desses dispositivos, não há degradação do sistema. 

e Nível 2 — Os meios de armazenamento de massa, normal- 
mente discos do tipo Winchester são compartilhados pelos 
diversos usuários do sistema. Porém, é necessário que a rede lo- 
cal tenha capacidade de transmitir dados em altas velocidades. 
O compartilhamento requer software de controle de acesso a 
esses arquivos, para que a integridade das informações seja 
mantida. 

e Nível 3 — Neste nível não se trata de compartilhar disposi- 
tivos físicos, mas sim a informação existente no ambiente da 
rede local. Além da capacidade de transmitir em altas veloci- 
dades, este nível requer facilidade no acesso simultâneo a ar- 
quivos e possibilidade de bloquear registros (lock), todos im- 
portantes para que se possa compartilhar informações. Inte- 
gridade dos dados, processamento distribuído, eliminação de 
redundância de informações, possibilidade de consolidar da- 
dos produzidos por diferentes pessoas são algumas das vanta- 
gens da implementação deste nível em rede local. 


FORMANDO A REDE 


São os seguintes os principais componentes de uma rede 
(Figura 1): 
e Unidade de interface, que pode ser uma placa ou um gabi- 
nete externo. Ela permite que o micro possa falar com a rede 
local, e as mais sofisticadas fazem todo o processo de comu- 
nicação, liberando o micro para outras tarefas. 





Figura 1 
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O Elppa |l Plus é um micro computador 

Só que tem macro vantagens 

E feito quase artezanalmente, portanto testado 

um a um 

E isso é uma macro qualidade 

Como é feito com componentes de alta qualidade, 
dentro dos melhores padrões de Engenharia, a 
confiabilidade do Elppa || Plus é macro. 

O custo de manutenção é micro" o único com um ano 
de garantia - macro qualidade com macro garantia 
Já com o preço acontece uma coisa interessante, 
deveria ser macro, mas quando você verifica o custo 
de uma configuração vê que é micro. 

A assistência técnica é macro - direta do fabricante 
ou através de seus credenciados. 

Ele é um Apple” compativel e dispõe de vasta gama 
de expansões e periféricos à sua disposição - 
CONTROLADOR DE DRIVE, CPIM, PAL-M, 80 
COLUNAS, SOFTSWITCH, 16K, 64K, 128K, GRAPH +, 
SUPER SERIAL CARD, SINTETIZADOR DE VOZ, 
MONITOR III, etc... - macro vantagem. 


Tem hora que precisa ser micro. 


Tem hora que precisa ser macro. 


Conclusão: Seja para você ou para sua empresa 
micro ou macro, faça como a Rede Globo, a Rede 
Bandeirantes ou a Control que têm se utilizado do 
Eippa Il Plus em suas necessidades empresariais ou 
como os funcionários do Bamerindus para suas 
atividades profissionais e de lazer 

Faça como tantos outros, que estão aproveitando as 
vantagens de um micro 


Tr que sabe ser macro na ntia 
a hora certa Macro gara! 

Escolha o Elppa Il Plus |1 ano inteirinho. 

a macro escolha. 










=— P plus 






O micro macro. A 


Fábrica: Rua Aimbere nº 931 - S.P. Tel. 864.0979- 872.2134 
Show Room: Av. Sumaré nº 1.744-S.P. Tel, B72.4788 
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do Rio Preto - Teledata 33-2714 « Fortaleza - Systematic 244-4746 
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Figura 3 


e Cabo físico para conectar as estações à rede local. Os tipos 
comumente usados são o par trançado, para pequenas distân- 
cias (até 300 metros) e o cabo coaxial de custo mais elevado, 
usado para grandes distâncias. Com transmissão em banda ba- 
se este último atinge 500 metros, enquanto que com a trans- 
missão em banda larga pode atingir até 50 quilômetros. 

e Servidores, que normalmente gerenciam o compartilhamento 
de arquivos ou impressoras, podem estar residentes em uma 
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E INCRÍVEL O QUE 
UM BOM PROGRAMA 
PODE FAZER. 
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Figura 4 


estação de trabalho ou em uma unidade dedicada para esse 
fim. 

e Gateways são computadores, dedicados ou não, que permi- 
tem às estações a possibilidade de comunicação com outras 
redes e serviços externos ao âmbito da rede local. 

Topologia é a forma física de interconexão dos elementos 
da rede. Há três tipos básicos para as redes locais. 

Na topologia em estrela (Figura 2) todos os nós (ou esta- 
ções) são ligados a um nó central, através do qual os dados 
passam. Neste tipo é comum o nó central possuir maior capa- 
cidade de processamento, além de concentrar os periféricos 
que são compartilhados entre as outras estações. À rede em 
estrela apresenta sua maior deficiência na confiabilidade, qual- 
quer falha no nó central causa a parada total do sistema, 
além de ser limitada em termos de expansão, normalmente a 
oito estações. Seu desempenho também é determinado pela 
capacidade de processamento do nó central. 

Uma rede organizada em anel é composta de estações 
ligadas em série (Figura 3), formando uma espécie de círculo. 
Normalmente, cada estação é ligada à rede através de uma 
interface especial, cuja responsabilidade é retransmitir os 
dados que não se destinam àquela estação, ler os dados desti- 
nados ao nó e inserir dados. Devido ao fato de as redes em anel 








O ábaco, para quem domina sua técnica, permite a execução de contas 
aritméticas com incrível velocidade. 

Da mesma forma, quem possui um microcomputador e um bom programa 
economiza tempo, papel e aborrecimento. 

A Nasajon Sistemas, tem à sua disposição mais de 50 programas como | 
folha de pagamento, crediário, mala direta etc.... para aproveitar ao má- 
ximo o que o seu microcomputador pode oferecer. a 
Além disso, a Nasajon Sistemas pode desenvolver programas específicos 
para a sua necessidade, seja ela qual for. a 

Todos os nossos programas são garantidos e atualizados. A 

Entre em contato com a Nasajon Sistemas. Estamos sempre dispostos a 
conversar e esclarecer qualquer dúvida que você possa ter sobre infor- 
mática. 

E quando seu microcomputador estiver funcionando com um programa da 
Nasajon, você verá as coisas incríveis que ele pode fazer. 


) Av. Rio Branco, 45 - s/1311 - RJ 
CEP: 20090 


Tels.: (021) 263-1241 e 233-0615 
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exigirem uma interface ativa para seu funcionamento, a con- 
fiabilidade da rede se reduz à confiabilidade das interfaces. A 
falha de qualquer uma delas seccionará o sistema. Na topolo- 
gia em anel também podem surgir problemas relacionados com 
falhas ou erros no processamento de mensagens. Por outro la- 
do, pode crescer ilimitadamente. Contudo é importante lem- 
brar que cada interface introduzida no sistema provocará um 
retardo adicional na rede e a degradação pode se tornar indese- 
jável, se muitas interfaces estiverem presentes na rede. 


Na topologia em barra comum (BUS) os nós compartilham 
o meio de transmissão através de interfaces passivas, isto é, o 
funcionamento da rede não depende do funcionamento das 
interfaces. Uma vez que a barra é compartilhada por todos os 
nós (Figura 4), o acesso a ela deve ser controlado, de forma 
centralizada ou distribuída. No caso centralizado, a mensa- 





Figura 5 


gem é transmitida por um determinado nó, que a retrans- 
mite para a estação de destino. No modo de acesso descentra- 
lizado, cada nó é responsável por realizar parte do controle. 
Quanto à confiabilidade, visto que a interface é passiva, a 
topologia em barra comum oferece maior segurança, pois uma 
eventual falha em uma interface não afeta o funcionamento da 


Automação: um caminho para as redes locais 


processamento manual de 

rotinas administrativas está 
irremediavelmente condenado 
na exata proporção em que a 
Informática vai se tornando 
mais acessível. A automação do 
escritório, seja simplesmente 
para consultas através de termi- 
nais não inteligentes, ou mesmo 
para a execução de tarefas mais 
simples, como elaboração de fo- 
lhas de pagamento ou controle 
de caixa e estoques por intermé- 
dio de micros é apenas um passo 
para a total informatização de 
procedimentos administrativos. 

Micros e minicomputadores, 
oferecidos em alguns casos à 
preços atraentes, têm levado 
empresários a tentarem a expe- 
riência de automação de suas fir- 
mas. A expansão do número de 
máquinas deverá ser mais rápida 
a partir do instante que a con- 
carrência aumente, possibilitan- 
do a escolha dos equipamentos 
em maior variedade e preços 
mais vantajosos. 

Mas o processo de automa- 
ção deve obedecer a etapas, diz 
quem já viveu a experiência e 
que hoje se encontra na fase da 
rede local, como é o caso de 
Eraldo de Freitas Montenegro, 
assistente do chefe do Departa- 
mento de Treinamento da Em- 
bratel. Para as pequenas e mé- 
dias empresas a informatização 
em escala menor é mais eficien- 
te, se analisado o mecanismo de 
custo fretorno. Rede local deve 
ser aspiração de quem fez um 
levantamento pormenorizado de 
suas necessidades e até de acesso 
a importantes bases de dados. 

O processo de automação de 
escritórios, seja por intermédio 
de terminais de consulta ou pro- 
cessamento através de um mi- 
cro, apresenta características de 
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aspecto psicológico junto ao 
quadro de funcionários, como 
pôde observar Eraldo Montene- 
gro no início da implantação da 
Informática em seu departamen- 
to. Mediante um criterioso tra- 
balho, ele passou a observar o 
comportamento do pessoal da 
seção onde seria implantado o 
sistema, para conhecer suas rea- 
ções em função do novo sistema 
operacional. E constatou fatos 
que no mínimo, são curiosos. 

Por exemplo, havia em parte 
dos funcionários o temor do de- 
semprego proporcionado pela 
informatização. Um receio gera- 
do, como ficou comprocado, 
apenas por questões como ouvi 
dizer e pela falta de conheci- 
mento pelo menos superficial 
do significado real da automa- 
ção. 
Descobriu-se então que essa 
reação era fruto da visão primá- 
ria a respeito do processamento 
eletrônico, de que as máquinas 
seriam ainda aquelas de grande 
porte, os chamados cérebros ele- 
trônicos, que por sua dimensão 
transmitiam a falsa imagem do 
complexo, algo que só pudesse 
ser acessado por iniciados. 

Foi mostrado então a eles 
que a microeletrônica já possibi- 
litava a fabricação de máquinas 
de pequeno porte, se não huma- 
nas, pelo menos valorizando 
mais a relação usuário /compu- 
tador. 

A automação de um escritó- 
rio não deve ser vista apenas 
como modernidade. Mas signifi- 
cando dinamização dos traba- 
lhos, eliminação dos feudos e 
ganhos em termos de produtivi- 
dade. Isso sem levar em consi- 
deração, em tarefas mais roti- 
neiras, aspectos importantes do 
tipo limpeza, correção e unifor- 


midade, como na correspondên- 
cia, por exemplo. Esses fatores, 
no processamento manual, às 
vezes são confundidos com ca- 
pacidade profissional, o que não 
deixa de ser uma avaliação sub- 
Jetiva. 

Também foi levado em con- 
sideração, no exemplo específi- 
co da Embratel, que a movimen- 
tação de pessoal durante férias 
ou licença acarreta sempre pro- 
blemas de atraso devido à neces- 
sidade de transferência de atri- 
buições e aprendizado do servi- 
ço, o que fica eliminado no es- 
critório automatizado. Em resu- 
mo, o domínio das informações 
não confidenciais é retirado das 
mãos de uns para ficar à disposi- 
ção de todos, quando preciso. 

Vale então ressaltar que a 
postura da empresa na hora de 
optar pela automação deve ser 
analisada após a pesagem de 
todos esses aspectos. E a partir 
do porte de cada uma poderá ser 
escolhida a simples implantação 
de micro para processamento 
inteno e com terminais para 
consultas, até a utilização do sis- 
tema rede local, menos simples, 
porém mais abrangente. 


REDES LOCAIS 


Para uma empresa que já vive 
a fase do escritório automatiza- 
do, através de elevado número 
de máquinas espalhadas por seus 
departamentos, e cujo funcio- 
namento requer constante inter- 
câmbio de informações entre 
um e outro, justifica-se a im- 
plantação da rede local. As roti- 
nas de trabalho, como passagem 
de memorandos de uma sessão a 
outra, comunicados internos e 
alterações de rotinas se desen- 
volvem de forma mais harmo- 


niosa, eliminando-se a utilização 
de papéis, e quando necessário 
seu emprego, isso pode ser feito 
por meio de impressoras. 

As redes locais permitem o 
compartilhamento econômico 
de recursos dispendiosos como 
unidades periféricas e comportas 
para bancos e bases de dados 
externos, dividindo da mesma 
forma informações que ficam 
armazenadas após consultas. 

No caso específico da Em- 
bratel, a implantação da rede 
local foi feita com a utilização 
de equipamento adquirido da 
Cetus Infórmática, gerando uma 
rede para operar em seis depar- 
tamentos. Sua configuração bd- 
sica é a seguinte: oito postos de 
serviço, um drive e uma impres- 
sora compartilhada; cada posto 
tem um micro e um nodo CS- 
1000, servindo de interface en-, 
tre a linha e a máquina. Dos oito 
postos, um é operado por um 
Cobra-305 e os demais por CP- 
500. 

O drive consta de um nodo 
CS-1200 e dois discos Winchester 
de 10 Mb cada, para a memória 
de massa do sistema. O nodo li- 
ga a uma Elgin MT-140 serial 
funcionando em spoolling. A li- 
nha constitui-se de um par te- 
lefônico trançado que interliga 
postos e servidor totalizando um 
comprimento de 233 metros. 

A rede local da Embratel ro- 
dou de início o Correio Eletrô- 
nico, desenvolvido em BASIC 
pelo seu Departamento de Pro- 
cessamento de Dados, possibili- 
tando a troca de mensagens en- 
tre os usuários, utilizando um 
arquivo central localizado nos 
discos. Mas vai fornecer condi- 
ções para automação de proces- 
sos mais complexos ora em de- 
senvolvimento. 
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REDES LOCAIS 


rede. Nesta topologia, o crescimento também é ilimitado, po- 
dendo suportar até 255 estações. 


SISTEMAS DE ACESSO 


Para que as estações possam trocar dados entre si é preciso 
um método de acesso que controle a disciplina obedecida pelas 
estações para acessar o meio de transmissão. Cada método está 
diretamente associado a um determinado tipo de topologia. 
Vejamos os mais conhecidos: 

No método denominado Passagem de Permissão existe uma 
mensagem de controle, token ou permissão, que é passada de 
elemento para elemento da rede. Apenas aquele que possui o 
token pode fazer uso da via de interconexão. Os outros ele- 
mentos permanecem passivos aguardando a sua vez. A exis- 
tência de mensagens para controle de acesso nos levam a con- 
siderar os seguintes aspectos: 

e Overhead da linha, já que a mensagem de controle não 
transporta informações úteis e de processamento, visto que ca- 
da elemento da rede deve receber, tratrar e passar adiante o 
token. 

e Confiabilidade, pois um erro no meio de transmissão pode 
tornar a mensagem irreconhecível, e se não houver mecanismos 
que a restaurem, a rede permanecerá inativa até que ela se tor- 
ne inteligível. 

Este método de acesso é normalmente utilizado em redes 
com topologia em anel. 

O método conhecido por Escaninhos ou Slots, também 
utilizado em sistemas de topologia em anel, se resume em 
dividir o anel em escaninhos, que circulam através da rede. 
Eles são de tamanho fixo e possuem um bit que indica se ele 
está ocupado ou vazio. Para transmitir uma mensagem, a inter- 
face aguarda um escaninho vazio, a introduz e seta o bit para 
indicar que ele está ocupado. Como os escaninhos são de ta- 
manho fixo, a interface deve criar pacotes antes de entrar com 
os dados na via de transmissão. O controle da rede é centrali- 
zado. Existe uma estação responsável pela geração dos sinais 
necessários. De um modo geral, os mesmos problemas do mé- 
todo de acesso token passing estão aqui presentes. 

No método Acesso Múltiplo com Detecção de Portadora — 
CSMA, a estação que deseja transmitir verifica antes se existe 
alguma mensagem fluindo pela via de interconexão. Se houver, 
aguarda até que a via fique liberada e então envia sua mensa- 
gem. Se ocorrer um estado de colisão, ou seja, duas estações 
enviarem suas mensagens ao mesmo tempo, elas serão super- 
postas e perdidas. O fato de cada estação verificar se o meio 
está livre antes de transmitir uma mensagem, já reduz consi- 
deravelmente a possibilidade de colisão, já que o tempo de pro- 
pagação é bem menor que o de transmissão. Entretanto, o tem- 
po perdido com colisões pode ser reduzido com a utilização do 
mecanismo de detecção de colisão CD. No método CSMA/CD 
o meio é monitorado antes e durante a transmissão de uma 
mensagem. Neste caso, quando ocorrer um estado de colisão, 
a transmissão é imediatamente interrompida e uma nova ten- 
tativa é realizada após um certo intervalo de tempo. Este mé- 
todo é normalmente utilizado em redes de topologia tipo 
Barra Comum, e os problemas citados nos métodos anteriores 
são aqui praticamente eliminados. 





EM SETE CAMADAS 





Para redes de computadores geograficamente distantes há 
um modelo de referência criado pela International Standard 
Organization (ISO), que consiste em dividir um projeto em 
sete camadas, relativamente independentes umas das outras 
(Figura 5). 

A denominação do modelo é Open Systems Interconec- 


22 





tions (OST) e a descrição de cada nível é a seguinte: 


e Físico — responsável pela transmissão pura de bits por uma 
linha de transmissão (voltagens, velocidades, tipo de transmis- 
são etc.). 


e Conexão de dados — responsável pelo método de acesso, 
detecção de erros (protocolo) e controle de fluxo. 


e Rede — responsável pelo empacotamento de mensagens, ou 
seja, é transparente ao usuário o tamanho do arquivo a ser en- 
viado. 

e Transporte — responsável pela transferência de dados entre 
equipamentos e pela multiplexação de canais, tornando pos- 
sível que várias conversões simultâneas ocorram na rede. 


e Sessão — Oferece ao usuário o acesso à rede, permitindo 
que dois usuários estabeleçam uma conexão. O estabelecimen- 
to de uma sessão envolve a troca de parâmetros. 


e Apresentação — responsável pela conversão de códigos, tais 
como de formatos de arquivos, compressão de texto etc. 
e Aplicação — são os programas aplicativos. 

Para as redes locais não se formou um padrão devido às 
particularidades de cada sistema, mas apenas uma recomenda- 
ção “IEEE-802” que envolve basicamente os níveis 1 e 2 do 
ISO. É recomendado para meio de comunicação o par trança- 
do, cabo coaxial ou fibra ótica. E para método de acesso/to- 
pologia as indicações são CSMA/BUS, TOKEN/BUS ou TO- 
KEN/ANEL. 

A seleção de uma rede local deve levar em consideração 
os aspectos já citados e também os seguintes: 


e Se é uma rede aberta (aceita vários tipos de equipamentos) 
ou fechada (requer equipamentos de um só fabricante). 


e Características do servidor de arquivos (verificar se possui 
facilidades para a criação de subdiretórios, controle de acesso 
por passwords, lock de registros etc.). 


e Verificar como a rede local se comporta quando um arquivo 
já se encontra aberto e outra estação executa o mesmo proce- 
dimento. Avaliar se o comportamento do sistema, neste as- 
pecto, atende as características particulares de suas aplicações. 
e Servidor de impressão (verificar se possui facilidades para 
determinar prioridades de impressão, se ocorrem superposi- 
ções de arquivos etc.). 


e Verificar se o usuário poderá associar um dispositivo físi- 
co (qualquer periférico ligado ao sistema) de uma determinada 
estação a um dos dispositivos lógicos de sua estação de traba- 
lho. 


e Degradação (verificar qual o nível de degradação que ocor- 
re com o incremento de novas estações). 


E como conselho final, procure simular todas as situações 
que deverão ocorrer no momento em que a rede local estiver 
em operação, para que você não conclua no futuro que não im- 
plantou uma rede local, e sim uma rede de problemas. 


1 
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Amaury Moraes Junior é formado pelo curso de Análise de Sistemas da 
FASP, tendo feito diversos cursos de aperfeiçoamento nas áreas de Ele- 
trônica Digital e Microprocessadores. Atualmente trabalha na área de 
microcomputadores para o Citybank. 
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A segunda 
memória do se 
computador: 


Porque tem um sistema de 
cabeçote próprio para 
o uso em micros. O gravador 
National RQ-2222 tem um 
contador de fita que facilita 
a localização do programa a 
ser utilizado. E tem também 
O gravador um comando único para 
National RQ-2222 gravação tipo “Um Toque”, 
é o preferido muito mais prático. Um 
pelos usuários de micro- gravador que vive na memó- 
computadores. Ele grava e ria do computador merece 
- rogramas com também viver na sua. 
is alta fidelidade e com Grave este nome: National 
a maior economia. RQ-2222. 


National ||| <> 


Produzido na Zona Franca de Manaus. Conheça o Amazonas. 










Nova empresa 
no grupo Prológica 


O grupo Prológica está formando uma nova empresa, a CP — Compu- 
tadores Pessoais LTDA, responsável pela fabricação e comercialização 
dos computadores pessoais do grupo. 

A CP manterá basicamente a infra-estrutura da divisão que existe 
atualmente, além da ampliação dos departamentos e de maior autonomia e 
flexibilidade no atendimento a clientes e fornecedores. A totalidade do 
capital no atendimento a clientes e fornecedores. A totalidade do capi- 
tal acionário da nova empresa pertencerá aos atuais acionistas do grupo 
Prológica. 

A sede da CP — Computadores Pessoais LTDA ficará na Rua Ptolo- 
meu, 650 — Vila Socorro, São Paulo, CEP: 04762, tel.: (011) 247-6934. 


Bolsas de estudo para 
curso de jogos 


A Ciberne Software está oferecendo bolsas de estudo, em regime in- 
tegral, para programadores interessados no 1º Curso de Projeto e De- 
senvolvimento de Jogos para Microcomputadores. Os dez bolsistas, que 
deverão ter mais de 16 anos e serem programadores de equipamentos 
com processador Z-80, serão selecionados, por entrevista, entre o total 
de inscritos. O curso, que terá a duração de 50 horas, será ministrado 
por Renato Degiovani. 

Para maiores informações sobre o curso e o procedimento de inscri- 
Vi les deixa à disposição dos interessados o seu telefone: (021) 


Cartões Microcraft 


A Microcraft começou o ano 
com três novos lançamentos para 
seu microcomputador Craft Il 
Plus. São eles: Cartão Pal/M, Car- 
tão controlador de disquetes de 


8” e um drive para discos de 8”. 


Com a nova placa Pal/M o Craft Il 
Plus pode trabalhar com monitor 
de vídeo ou televisor comum 
colorido. A placa não vem incor- 
porada no modelo básico do mi- 
cro, sendo vendida como expan- 
são e seu preço é de 375 mil. Com 
o cartão controlador de discos, o 


micro passa a aceitar disquetes de 
8", dupla face e dupla densidade, 
até um total de 4 Mb. Cada placa 
aceita dois drives de 1 Mb cada e 
custa Cr$ 1.390 mil. E o novo 
drive para disquetes de 8", dupla 
face e dupla densidade, com fon- 
te, cabo de ligação e o próprio ga- 
binete também já está sendo co- 
mercializado e seu preço é de 
Cr$ 8.765 mil. A Microcraft está 
produzindo atualmente cerca de 
200 unidades do Craft Il Plus por 
mês. 





Novos jogos 
Ciberne 


A JVA Microcomputadores lançou mais 
quatro fitas de jogos sob a sigla Ciberne Soft- 
ware. As fitas são dedicadas a equipamentos 
com lógica Sinclair e, cada uma, contém três 
jogos que mesclam ação e emoção, criando 
uma atmosfera de sonho, onde o usuário se 
transfigura sucessivamente em piloto espacial, 
mercador, robô e até num cidadão comum à 


DEFENSOR 3D 


MERCADOR DOS 
SETE MARES 





A Compo está lançando quatro novos mo- 
nitores de vídeo profissionais: três monocro- 
máticos, que podem ser ligados a computado- 
res que tenham saída de vídeo composto; e 
um colorido, que traz como novidade uma 
placa que permite acoplar uma Apple num 
monitor de vídeo de boa qualidade (a placa 
converte o sinal do micro em RGB). 

O modelo CPC 14 cromático está sendo 
lançado em 2 versões: média resolução gráfica 
— 380 x 240 pontos; e alta resolução — 560 x 
240. As duas versões são compatíveis com as 
linhas Apple, IBM e Itautec. 

O MPC Vídeo Monocromático é apresentado 
em 12 e 14 polegadas, sendo que o de 14é0 
primeiro deste tamanho aser lançado noBrasil. 
As duas opções trazem como novidade a com- 
patibilidade com a placa monochrome IBM, e 
são compatíveis com as linhas Apple e Itautec. 
Possuem foco dinâmico, 160 colunas de texto 
e resolução gráfica de 720 x 240 pontos. 

Outro modelo novo, o MV, é apresentado 
nas versões 1 e 2, ambos monocromáticos. As 
duas versões apresentam 160 colunas de tex- 
to, alta resolução gráfica — 560 x 240 e tela 
anti-ofuscante opcional. O que as diferencia é 
que o MV 1 é compatível com a linha Apple e 
o MV 2 com as linhas IBM e Itautec. 


Placa CP/MBS500, 
da Microsol 


A placa CP/M500, da Microsol, — que 
possibilita ao CP-500 processar programas 
no sistema operacional CP/M — está 
custando menos. A unidade, que custava 
cerca de 42 ORTN, está agora em torno 
de 34. Segundo a empresa, isso se deve ao 
aumento na venda das placas, o que incre- 
mentou a produção e, consequentemente 
barateou o custo da unidade. 

A Microsol fica na Av. Pontes Vieira, 
1867 — CEP: 60.000, Fortaleza — Ceará 











Monitores Videocompo 





Monitor MPC 12. 


O modelo ME Vídeo Monocromático é 
apresentado em três opções: cinco polegadas e 
resolução gráfica de 480 x 240; nove polega- 
das e resolução de 560 x 240, e doze polega- 
das com reslução de 720 x 240 pontos. As 
três versões são compatíveis com as linhas 
Apple, IBM e Itautec. 

A Compo oferece seus terminais direta- 
mente ao público e através de revendedores. 
Informações pelo tel.: (011) 548-6844, São 
Paulo. 





Relação de Software 
para TK 





A Microdigital está oferecendo uma rela- 
ção descritiva completa de programas com a 
marca Microsoft , já desenvolvidos para a li- 
nha TK (utilitários, aplicativos profissionais e 
jogos animados), para que o usuário possa 
atualizar-se quanto aos programas disponíveis 
no mercado. 

Os interessados devem escrever para: Mi- 
crodigital Eletrônica Ltda. — Serviço de Su- 
porte ao Usuário — Caixa Postal 54088, CEP 
01296, São Paulo, SP. 





CCE 
a Todo Vapor 


A CCE entrou o ano de 85 a caminho 
da concretização daquilo que a empresa 
havia adiantado no final do ano passado: 
o lançamento de três novos micros. Em 
fevereiro, a CCE colocou no mercado o 
primeiro irmão do Exato, o MC 1000, 
que veio para concorrer diretamente com 
os micros pessoais de baixo preço dispo- 
níveis no mercado. O novo equipamento 
foi lançado com suporte de 50 jogos e já 
estão sendo colocados no mercado mais 
100 programas aplicativos desenvolvidos 
por software houses credenciadas pela 
CCE. Também já estão disponíveis a 
expansão de memória de 64 Kbytes, a 
placa para o MC 1000 rodar programas 
em CP/M e a interface para utilização de 
disquetes de 5 1/4”, com 170 Kb cada 
um, face simples e dupla densidade. Para 
o Exato a CCE colocou no mercado, nos 
primeiros meses do ano, um monitor de 
vídeo de 12”, fósforo verde ou âmbar 
(opcional), e as placas CP/M e 80 colunas. 

Mas as grandes novidades anunciadas 
pela empresa ainda estão por vir. Para o 
segundo semestre está previsto o lança- 
mento do terceiro membro da família de 
micros CCE, o MC-1500, uma versão 
ampliada do MC 1000 com gabinete 
maior e teclado profissional. As interfa- 
ces lançadas para o MC 1000 deverão já 
vir embutidas nesse novo equipamento. 
Para a Feira de Informática desse ano a 
CCE promete o lançamento de um micro 
de 16 bits compatível com o modelo XT 
da IBM. E na linha de 8 bits a CCE deve- 
rá apresentar também um novo equipa- 
mento baseado no microprocessador Z-80 
e na tecnologia MSX, desenvolvida por 
um pool! de grandes empresas japonesas. 
O MC 2000 terá memória ROM de 32 
Kbytes com uma série de rotinas que 
facilitarão o trabalho do usuário. 





mercê de assaltantes. 

Nesse novo grupo, ao contrário do lançado 
no ano passado, a JVA procurou misturar di- 
versos gêneros de jogos, em cada fita. A inten- 
ção foi clara: agradar a todos os tipos de pú- 
blico. 

A maioria dos jogos são traduções e ver- 
sões de jogos americanos, mas a JVA teve a 
preocupação de manter em cada fita, pelo 
menos um jogo de autor nacional. Segundo 
José Eduardo Neves, diretor da empresa, essa 
iniciativa deverá se tornar uma prática da 
marca Ciberne. 

“Estamos fazendo uma seleção de jogos de 
nossos autores, com o objetivo de incentivá- 
los a produzir jogos nacionais. Não nos inte- 
ressa apenas traduções e versões, mas sim ma- 
terial original. Estamos até promovendo um 
curso de Programação de Jogos para incenti- 
var o pessoal”. 

Segundo José Eduardo é possível vislum- 
brar um maior interesse nessa produção e coi- 
sas de qualidade já estão começando a surgir 
no mercado. Na sua experiência de selecionar 
esse produto já deu para perceber que a quali- 
dade dos jogos vem crescendo muito. “Tive- 
mos até, há algum tempo atrás, o cúmulo de 
receber um jogo de autor nacional, totalmente 
traduzido para o inglês. Segundo o autor isso 
dava status ao produto!”. 

Os novos jogos da JVA custam, em média, 
2.036 ORTN e, numa primeira fita, um jogo 





Valkirie, Mercador dos Sete Mares e Defensor 3D são três, das quatro novas fitas da Ciberne. 


nacional de Divino C. R. Leitão dá nome ao 
produto. Valkirie é um jogo de estratégia, do 
tipo invaders, onde o comandante de uma 
nave espacial tenta, em pleno planeta Vênus, 
combater estranhas criaturas aladas. Acompa- 
nham esse jogo, na mesma fita, o Guerrilha 
Cósmica e o ZOR. No primeiro, seres maquia- 
vélicos retiram tijolinhos e vão sendo abatidos, 
um a um, por um canhão de fótons. E um 
jogo atraente, do tipo invaders, com opção 
para alta resolução gráfica. Já o ZOR é um jo- 
go de ação, que reúne tática e um pouco de 
sorte. Nele, dois robôs se defrontam no solo 
de um planeta deserto. Sem estabelecer conta- 
to visual, eles se enfrentam com armas e defe- 
sas iguais. 

Uma segunda fita traz o Mercador dos Sete 
Mares como jogo principal. Este também é um 
jogo de estratégia, mas não militar, e sim do 
tipo banco imobiliário. No século XIX, o joga- 
dor percorre o mundo a bordo de um navio, 
em busca de ótimos negócios. O seguinte é 
Corrida Maluca, um jogo de ação, tipo PAC- 
MAN. São dois carros que percorrem um cir- 
cuito: um tentando apanhar todas as pedri- 
nhas do caminho; o outro, no encalço do pri- 


meiro. O último da fita é o Pinball, de Divino 
C.R. Leitão, um jogo que simula na tela uma 
máquina real de fliperama. 


Na fita denominada Subespaço está esse 
jogo, como abertura, simulando uma verdadei- 
ra caçada espacial. O jogo é totalmente gráfico 
e nele o jogador tem que caçar os inimigos 
que tentam destruir a sua espaçonave. Caver- 
nas de Marte, de Divino C. R. Leitão, está a 
seguir, como um jogo de ação, com um bonito 
display e cavernas cheias de perigos a seremen- 
frentados. Por último, nessa fita, está o Com- 
boio Espacial, também um jogo de ação, onde 
uma nave é designada para defender um inde- 
feso cargueiro. 

Defensor 3D é a última fita, com naves 
espaciais que cruzam o espaço em alta veloci- 
dade, na mira telescópica de um canhão laser. 
O próximo é Q'BERT, de Divino C. R. Leitão, 
um jogo que cria um neologismo e utiliza for- 
mas geométricas, empilhadas umas sobre as 
outras, para formar uma pirâmide em perspec- 
tiva. O último é Assalto, um jogo do tipo 
PAC-MAN, onde ladrões tentam assaltar um 
depositante que precisa chegar à salvo no 
banco. 
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€ A PTI — Publicações Técnicas Internacionais está promovendo no 
Brasil o Computer Book Review, periódico americano especializado na 
análise e crítica de novas publicações na área de processamento de da- 
dos. Informações pelo tel.: (011) 258-8442 e 257-1640. € A BARTÔ 
Computadores Ltda., especialista na área de Commodore, está confec- 
cionando um circuito de proteção contra picos de voltagem que evita 
queima de equipamentos. Outra novidade da Bartô é a interface RS232 
para acoplamento dos computadores da linha Commodore ao projeto 
Cirandão e outros CBBS. Informações pelo tel.: (021) 262-1213, Rio de 
Janeiro. € A Eastman Kodak Company anunciou planos para atuar no 
mercado de telecomunicações, criando uma nova divisão, a Eastman 
Comunications, para comercializar serviços de telecomunicações. Os ser- 
viços iniciais incluirão transmissão de dados e telefonemas a longa dis- 
tância e, ainda, serviços em “network”. 8 A PROLÓGICA ganhou uma 
concorrência para fornecimento de microcomputadores ao Ministério 
do Exército. Para a fase inicial do projeto o Ministério do Exército já re- 
cebeu da Prológica 61 Super Sistemas 700 e 74 impressoras P-720. 6 A 
COMPUSHOP está aceitando micros usados como parte de pagamento 
na aquisição de um novo sistema. Os equipamentos serão avaliados de 
acordo com o estado de conservação e marca por profissionais especiali- 
zados da empresa. Outra novidade é a comercialização de equipamentos 
usados, com garantia de três meses. € A 3i INFORMÁTICA já tem vá- 
rios seminários programados para este ano, entre eles: “Redes Locais ou 














PBX”, “Planejamento Estratégico em Automação de Escritórios” e o 
“Caminho da Implantação em Automação de Escritórios". Informa- 
ções pelo tel.: (011) 521-9509, São Paulo. 6 A Texas Instrumentos está 
lançando uma calculadora de mesa que dispensa o uso de baterias. A 
calculadora — T|-5022 — possui células de captação de energia natural 
ou artificial, ficando, assim, constantemente ligada. € A IBM está encer- 
rando a medida cautelar de vistoria, que havia apresentado contra a Sof- 
tec, na Justiça de São Paulo. Isso porque a empresa se comprometeu a 
não incluir na memória dos equipamentos que fabricar e vender o bios 
da IBM ou qualquer outro programa a ele semelhante. € A Hewlett — 
Packard Co. pagou cerca de 65 milhões de dólares em participação nos 
lucros a mais de 73 mil funcionários, em 32 países. Destes, aproximada- 
mente 240 trabalham na Hewlett — Packard do Brasil Indústria e Co- 
mércio, com fábrica em Campinas, São Paulo. 6 A Proceda, empresa de 
processamento de dados associada ao Grupo Santista, assinou contrato 
com a Datalógica para distribuição, a nível nacional, dos programas co- 
mercializados por esta empresa (dBase Il e Framework). € Um mini- 
computador COBRA 530 e um micro COBRA 210 estiveram presentes 
na sala de desenho industrial da exposição “Tradição e Ruptura”, que 
se realizou no Pavilhão da Bienal (Parque do Ibirapuera, SP). 6 A Nova- 
data informa que está desenvolvendo o projeto de seu super-minicompu- 
tador, o ND286, que será compatível com o produto atual da empresa, 
o Mini NDB6. 
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Com a importância que vem assumindo a comunicação 
entre máquinas o modem ganha papel de destaque como 
peça fundamental nessa engrenagem 








Modems, . 
um periférico em voga 


stabelecer relação, ligar, unir, 

transmitir. Estes são alguns dos 

sinônimos encontrados em di- 

cionários para o verbo comu- 
nicar, tão em voga em nossos dias. Na 
área de Informática, o verbo comuni- 
car vem sendo cada vez mais conjugado 
e mostras disso tivemos na última Fei- 
ra Internacional de Informática, realiza- 
da em novembro, no Rio de Janeiro, on- 
de um dos pontos altos foi o software 
de comunicação. 

O uso do micro como um equipa- 
mento isolado esbarra no limite da in- 
teração exclusiva entre a máquina e seu 
usuário. Atualmente porém, é cada vez 
maior o número de usuários de micro- 
computadores que buscam uma amplia- 
ção dessa relação com a máquina, atra- 
vés de ligação em rede e da utilização de 
serviços de bases de dados. 

Para que esta ligação se efetue, são 
necessários três elementos básicos: 
R$232-C, um software de comunicação 
e o modem. 

A maioria dos microcomputadores 
possui saída para ligação de interface 
R$232-C que é um tipo de conexão- 
padrão para a ligação entre os micros 
e seus periféricos (inclusive modems, pa- 
ra acoplamento à rede telefônica) entre 
dois ou mais micros e entre um terminal 
e um computador de grande porte. Esse 
padrão define como DTE — Data Termi- 
nal Equipment, ou Equipamento Termi- 
nal de Dados, o equipamento que gera e 
processa a informação; e Data Commu- 
nication Equipment, ou Equipamento 
de Comunicação de Dados, aquele que é 
empregado como transmissor e receptor 
de dados, no caso o modem. 

O segundo componente presente nas 
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ligações entre equipamentos é o software 
de comunicação. Este software geral- 
mente é comercializado sob a forma de 
pacotes de comunicação voltados para 
cada tipo de ligação que se queira efe- 
tuar. Existem os pacotes para comunica- 
ção entre micros e mainframes, por 
exemplo, através dos quais o micro pas- 
sa a atuar como terminal da máquina de 
grande porte; e os pacotes para acesso às 
centrais de bancos de dados dos serviços 
comerciais. 

Alguns fabricantes de microcomputa- 
dores estão implementando seus equipa- 
mentos, dotando-os internamente da in- 
terface RS 232, do software para aces- 
so à determinados serviços e de mo- 
dems internos, dispostos em uma placa. 
Entre estes estão a Itautec, que já dis- 
põe dessa implementação para os mi- 
cros da família 1-7000, para acesso ao 
Videotexto, e em breve terá disponível 
também para o 1-7000 PC XT, o micro 
de 16 bits da empresa; a Spectrum, cu- 
jos novos Microengenhos também já po- 
dem acessar diretamente o banco de 
dados central da Telesp; e o projeto Ci- 
randão, da Embratel. 


O terceiro elemento é o modem, cuja 
descrição e considerações técnicas se en- 
contram no artigo A viagem dos dados, 
pág. 10. 


O MERCADO DE MODEMS NO 
BRASIL 


A grande maioria dos fabricantes de 
modems está otimista com a visível ex- 
pansão desse mercado e com as perspec- 
tivas para este ano que são de um cres- 
cente aumento no volume de vendas. 


“Vivemos no rastro da indústria de In- 
formática, já que a indústria de modems 
é o elo de ligação entre duas áreas: a 
Informática e as Telecomunicações, pos- 
sibilitando que estas interajam”, afirma 
Henrique M. Tanabe, supervisor de ven- 
das da Moddata/Coencisa. 


A Coencisa é o fabricante que possui 
a maior variedade de modems no mer- 
cado, hoje com 14 modelos diferentes. 
Criada em 1975, a empresa foi também 
o primeiro fabricante de modems no 
Brasil e em 1983 teve seu controle acio- 
nário comprado pela Moddata, que na 
época também já se dedicava à fabrica- 
ção desses equipamentos. 


No primeiro ano de atuação conjun- 
ta Moddata/Coencisa, foram vendidos 
35% a mais em quantidade e 40% a mais 
em volume do que no ano anterior, já 
descontada a inflação. Em 1984 a em- 
presa vendeu, somente em São Paulo, 
cinco mil modems com um faturamento 
de Cr$ 35 bilhões em todo o País, e 
para este ano as previsões são de no mí- 
nimo dobrar as vendas. Segundo Henri- 
que Tanabe, estas previsões se concen- 
tram principalmente na área de modems 
para micros, já que segundo ele os equi- 
pamentos de alta velocidade mantém 
um crescimento constante. 


A Moddata/Coencisa fechou o ano 
com a assinatura de um contrato com a 
Embratel da ordem de Cr$ 20 bilhões 
para o fornecimento de modems. Du- 
rante o ano de 1984, a empresa investiu 
cerca de Cr$ 2 bilhões em pesquisa e de- 
senvolvimento e hoje os modems da 
Moddata/Coencisa possuem um índice 
de nacionalização de 95%, sendo que 
muitos já atingiram 100%. 
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A Elebra, conhecido fabricante da 
área de Informática, possui sete modelos 
de modems disponíveis no mercado. Em 
1984, o Departamento de Transmissão 
de Dados passou por uma reestruturação 
na qa foi dada ênfase ao segmento de 
modems com a criação de serviços para 
maior suporte técnico. Antigamente, es- 
te segmento da empresa era voltado 
principalmente para grandes usuários e 
grandes vendas e hoje volta-se também 
aos pequenos usuários. Segundo o su- 
pervisor de planejamento de produto, 
Alexandre Reznik, o mercado de mo- 
dems está em franco desenvolvimento, 
incentivado por clubes de usuários e ser- 
viços como o Cirandão e Videotexto. 
“O mercado é promissor e os resultados 
têm sido excelentes”, diz ele, “o tele- 
processamento vai crescer com a indús- 
tria e comércio comprando cada vez 
mais modems impulsionados pelo domí- 
nio da máquina por parte do usuário”. 


O modem de maior venda entre os 
modelos da Elebra é o Banda-Base, um 
modem digital para ligações urbanas que 
está sendo muito utilizado por bancos 
para ligações de terminais entre as agên- 
cias. A nacionalização dos modems da 
Elebra varia entre 85 e 100%, este últi- 
mo índice alcançado nos modelos de 
baixa velocidade, já que para os de alta 
velocidade ainda são importados deter- 
minados componentes. Durante o ano 
de 1984 a Elebra registrou um cresci- 
mento da ordem de 25 a 30% na área de 
modems e para esse ano está previsto 
um crescimento também nesta faixa. 

No entanto, na maioria dos casos de 
ligação de micros entre si ou de micros 
a equipamentos de grande porte os mo- 
dems utilizados são do tipo analógico e 
assíncrono. Entre os modems analógi- 
cos assíncronos, os de 300 bps são con- 
siderados ideais para ligações com mi- 
crocomputadores pessoais principalmen- 
te pelo preço reduzido e pela facilidade 
de instalação. 

Mais especificamente, os modems de 
acesso a bancos de dados ainda podem 
possuir um dispositivo de resposta auto- 
mática (DRA) que atende as chamadas 
através de um ruído, informando ao 
usuário que a ligação foi completada. 
Alguns modelos trazem um outro dispo- 













de Barros, 593. SP, tel.: (011) 571-0782. 
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Tabela de modems 


A seguir, publicamos uma tabela com os modems que estão no mercado e que são utili- 
zados em microcomputadores. Estes são os endereços das empresas que fazem parte 
desta tabela: Moddata/Coencisa — R. Dr. Sodré, 72, SP, tel.: (011) 543-2711; Elebra Ele- 
trônica — Av. Eng? Luiz Carlos Berrini, 1461, SP, tel.: (011) 533-9977; Parks Equipamen- 
tos Eletrônicos Ltda. — Av. Paraná, 2335, PA, tel.: (0512) 42-5500; Digitel Equipamentos 
Eletrônicos Ltda. — R. João Abott, 503, PA, tel.: (0512) 32-5999; CMA Indústria Eletrô- 
nica — Av. Giovanni Gronchi, 6065, SP, tel.: (011) 548-2249; ABC Dados Sistemas S/A — 
Estrada do Tindiba, 1608, RJ, tel.: (021) 392-8585; CMW Sistemas Ltda. — R. José Oli- 
veira Coutinho, 70, SP, tel.: (011) 826-6444; Splice Indústria e Comércio — Av. Juscelino 
K. de Oliveira, 154, Votorantin, SP, tel.: (0152) 43-1316; Milmar Indústria e Comércio 
Ltda. — Av. Dr. Cardoso de Mello, 1336, SP, tel.: (011) 531-3433; EES — Rua Napoleão 


sitivo de auto discagem. O usuário pro- 
grama seu micro com o número que de- 
seja discar e ele o faz automaticamente 
através do modem. 

A opinião de que os serviços de ban- 
cos de dados como Cirandão e Video- 
texto entre outros vêm impulsionando 
significativamente o mercado de mo- 
dems é ressaltado por Adailton Souza 
de Oliveira, Assistente de Marketing da 
CMA Indústria Eletrônica. A empresa 
surgiu da CMA Sistemas, que para trans- 
missão de dados dos Estados Unidos pa- 
ra cá começou a fabricar os equipamen- 
tos que necessitava, passando a comer- 
cializálos um ano depois. Hoje, a CMA 
dispõe de cinco modelos de modems, 
com um índice médio de nacionaliza- 
ção de 90.8%, sendo o A 217 CT o mais 
procurado para utilização em acesso ao 
Cirandão e Videotexto. A empresa fa- 
bricava um acoplador acústico, hoje 
fora de linha por falta de mercado. 

Outro fabricante pioneiro na área de 
modems é a Parks, que há 18 anos co- 
meçou fabricando alarmes residenciais 
e comerciais e entre 1975 e 76 entrou 
na área de Informática passando a fa- 
bricar modems. Segundo Jaiter Pereira 
de Pádua, da área comercial, a Parks é 
uma das três maiores empresas desse 
segmento juntamente com a Moddata/ 
Coencisa e a Elebra. Ele afirma que 
1984 foi um ano muito bom para a 
Parks, que mesmo com a crise registrou 
um crescimento real entre janeiro e 
junho, quando encerra o ano fiscal, de 
79%, e um faturamento de Cr$ 3 bi- 
lhões. Para 85 a meta da empresa é 
atingir um crescimento da ordem de 
150%. 


De julho de 1983 a junho de 84 a 
Parks fabricou 5.300 modems e para o 
próximo exercício espera, no mínimo, 
dobrar essa produção. Foram investidos 
Cr$ 600 milhões em pesquisa e desen- 
volvimento e o índice de nacionaliza- 
ção dos produtos da Parks atinge hoje 
98%, com a importação apenas dos cir- 
cuitos que não são fabricados no Brasil. 





Texto final: Stela Lachtermacher 





INSTITUTO DE 
TECNOLOGIA ORT 
CENTRO DE INFORMÁTICA 


PROGRAMAS DE TREINAMENTO 


ÁREA DE MICROINFORMÁTICA 


e PARA USUÁRIOS 
(INTRODUÇÃO A PD, VISICALC/ 
SUPERCALC, WORDSTAR, 
dBASE II, BASIC) 


PARA PROGRAMADORES E 
ANALISTAS 

(INTRODUÇÃO AO MICRO, CP/M, 
BASIC SOB CP/M, WORDSTAR E 
dBASE Il) 


NA EDUCAÇÃO 

(LOGO PARA EDUCADORES E 
PSICOLOGOS;LOGO PARA 
JOVENS) 


FORMAÇÃO PROFISSIONAL EM 
PROGRAMAÇÃO E ANALISE DE 
SISTEMAS 


APERFEIÇOAMENTO 
PROFISSIONAL EM AMBIENTE IBM 


CPD-ORT: IBM 4341 
COM TERMINAIS 
LABORATÓRIO DE MICROS 


TREINAMENTO IN HOUSE 
EXCLUSIVO PARA EMPRESAS 


SOLICITE INFORMAÇÕES E 
FOLHETOS EXPLICATIVOS 


RUA DONA MARIANA, 213 - BOTAFOGO 
RJ-TEL 286-7842 


SÓ PARA EMPRESÁRIOS 
MUITO INTELIGENTES... 


— A sua contabilidade atende a 
você ou somente aos fiscais? 

— Você tem um bom controle 
de contasa pagar eareceber? 

— A sua administração de imó- 
veis é realmente eficiente? 


Na TESBI Informática você en- 
contra programas de contabili- 
dade CAP/CAR e Administra- 
ção de Imóveis voltados para 
você, Gerente eficiente. Todos 
desenvolvidos em DBII ou Ba- 
sic. 

Cursos práticos de dBase, Wor- 
dstar e Supercalc. 





Melhores Informações pelo 
tel.: 284-6949 c/Liege 





ps TESBI INFORMÁTICA LTDA. 


Av. 28 de Setembro, 226 
Lj. 110—V. Isabel 





MODENS, UM PERIFÉRICO EM VOGA 
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ABREVIATURAS UTILIZADAS 

analg. — analógico assinc. — assíncrono aut. — automática d. — duplex digt. — digital disc. —discagem ope. — opcional resp. — resposta s.d. — semi du - 
plex sinc. — síncrono Trans. — Transdata Vdt. — Videotexto 

*1 Este modelo, além do CCITT, é baseado no padrão Bel. 

*2 Este modem é o primeiro modelo nacional específico para a linha Sinclair. 
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uanto mais 
complexo for um sistema, 
mais sólida e contiável 
deve ser sua base 
Quando você tem um 
micro da Unitron como 
princípio inteligente. você 
também tem a certeza de 
que o atendimento de 
suas necessidades em 
processamento de dados 
está assegurado. Ea 
palavra de quem 
trabalha continuamente 
para oferecer uma 
tecnologia sempre atual 


ao usuário. É o que os fatos demonstram 

Na sua categoria, o Unitron andou sempre na 
trente. Além de contar com uma infinidade de 
programas, testados e aprovados, e os mais 








diversificados acessórios 
de expansão — entre 
módulos, interfaces e 
periféricos -,o Unitron 
agora pode ser 

conectado, via telefone, a 
todas as redes existentes: 
Aruanda, Cirandão, 
Interdata, Cyber, 
Videotexto, CMA, etc. Ou, 
então, às redes 
particulares, acessando 
outros micros ou 
comunicando-se com 
computadores de grande 
porte, na função de 
terminal inteligente. Portanto, se você deseja um 
processamento de dados com qualidade, fale 
com nossos revendedores autorizados. Para cada 
caso, uma solução inteligente. Do princípio ao tim. 





unitron 


Computadores 
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Mais do que um incrível jogo em Assembler e BASIC para seu micro TRS-80: 
Quasar IV reúne três programas em um só e ainda dá de presente um 
compilador BASIC, em BASIC, para os mais exigentes. Entre logo nos 
quadrantes da Galáxia e comande esta ficção! 








Quasar IV: 


uma 


aventura compilada 


Lávio Pareschi 


m bom jogo é difícil. Em BASIC, então, é raro, prin- 

cipalmente por causa da lentidão do interpretador. 

E na maioria dos jogos em linguagem de máquina 

(Z80, neste nosso caso), o que temos? Uma luta de 
reflexos contra uma máquina que não se cansa de repetir a 
mesma cena, o mesmo movimento, a mesma sequência... repe- 
tir. repetir e repetir. Passada a novidade, não há mais graça. 
Proa asi os macetes, não existe mais desafio e o único 
objetivo passa a ser aumentar o número de pontos, o que, con- 
venhamos, é muito pouco. 

A maior fraqueza de um jogo é a falta de criatividade, a não 
variedade, e a própria limitação dos recursos disponíveis impõe 
esta condição. Simulações de jogos inteligentes, como dama, 
xadrez ou gamão, são exceções, isto quando (e só quando) são 
bem feitas, o que não impede, no entanto, que muitos os con- 
siderem como jogos molengas, justamente devido a ausência de 
variedade. 

E o que é o Quasar IV? Um jogo molenga? Não. Um jogo de 
puro raciocínio abstrato ou de movimentação assombrosa? 
Também não. Ele é um jogo em que a principal característica é 
a variedade, com vários jogos em um, todos seguindo um tema 
comum, e que ora requer sorte, ora malandragem, ora rapidez, 
dependendo das circunstâncias. Enfim, um jogo fácil, difícil e 
impossível. 

Neste programa de ficção a grande aventura é sobreviver até 
o fim dos tempos como comandante de uma espaçonave (a 
Enterprise, é claro!) que navega pelos quadrantes da galáxia e 
precisa evitar ou combater os inimigos da Federação (Klingons, 
Romulans etc.) que não dão sossego. O Quasar IV é em tempo 
real (centons) e se o comandante não fizer nada, o tempo 
corre, Os inimigos o cercam e..... já era! 

Não é fácil ser comandante desta Enterprise: é preciso 
aprender a lidar com phasers, mísseis, campos de força, tem- 
pestades iônicas, buracos negros, minas hiperespaciais, planetas 
de anti-matéria, sensores inter-galáticos, quadrantes do espaço 
sideral, comunicações condificadas, chuvas de partículas, mó- 
dulos de sobrevivência, deformações repentinas do espaço e 
muito mais. O comandante que chegar (vivo) ao fim de sua 
missão, no tempo estipulado, receberá uma condecoração espe- 
cial da Federação! 
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O jogo é sonoro, com músicas, tiros e ruídos de toda espé- 
cie (o que não falta é barulho). Apresenta também efeitos vi- 
suais e imagens diversas, representando cada circunstância, e os 
comandos possíveis são geralmente apresentados na própria te- 
la, como opções para o comandante. 


ESTRUTURA DO QUASAR IV 


O comando desta espaçonave exige cerca de 24 Kb de 
BASIC misturados com diversas sub-rotinas Z80, sendo duas 
compiladas, de aproximadamente 5 Kb cada uma. Fácil, não? 

O Quasar IV está dividido em três módulos: 1 — Quasar/ 
MIX, em BASIC (listagem 4), programa principal que carrega 
os outros módulos e contém todas as sub-rotinas Z80, contro- 
lando as chamadas via USR; 2 — Quasl/USR, em Z80, compi- 
lado do programa Quasl/CMP, em BASIC (listagem 2), pelo 
compilador Compiler/BAS (listagem 1), que também será apre- 
sentado como parte integrante deste artigo; 3 — Quasll/USR, 
em Z80, compilado do programa QuasIl/CMP, em BASIC 
(listagem 3), pelo compilador Compiler/BAS. 

A configuração mais apropriada para o desenvolvimento do 

IV é um equipamento compatível com o TRS-80 mo- 
delo III, com 48 Kb de memória e, pelo menos, um drive. As 
listagens apresentadas do Quasar/MIX e do Compiler/BAS são 
para o NEWDOS 2.2 (ao final do texto, no Apêndice B, estão 
as adaptações necessárias para que rodem em TRS DOS). 

Para a inclusão das sub-rotinas Z-80 dentro do BASIC de 
Quasar/MIX, aconselhamos o uso do programa utilitário Poko- 
des/BAS (publicado em MS nº 36), pois facilita bastante. Por 
falar em facilitar, com esta intenção o Quasar IV foi dividido 
em quatro partes: 19 — Compiler/BAS, com descrição, instru- 

s detalhadas e listagem; 2º — Quasl/USR, com listagem 

ENE) e compilação; 3º — Quasll/USR, com listagem 
(/CMP) e compilação; 49 — Quasar/MIX, sua descrição, inclu- 
são das sub-rotinas Z80, instruções do jogo e listagem. 


COMPILER/BAS, O COMPILADOR 
BASIC, EM BASIC 


Uma ferramenta poderosa, o compilador. Para se elaborar 
um programa decente, e decente tem que ser em linguagem de 
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máquina, pelo menos em parte (como é o caso de Quasar 
TV), sem que fiquemos loucos ou desesperados escrevendo di- 
retamente em Assembler e debugando durante semanas (isso 
com otimismo), é essencial a utilização de um compilador. 

Mas como conseguir um bom compilador sem gastar muito 
ou se arriscar com piratas sem manual? Difícil. Porém Quasar 
IV precisava de um e o jeito foi fazer um, simples, razoável e 
que não gastasse Kilos de bytes para somar três números, co- 
mo pude constatar em certos compiladores que experimentei 
— uma piada o desperdício de memória! 

Compiler/BAS produz código de máquina usando as rotinas 
da ROM do micro. Não desperdiça memória reservando espaço 
para variáveis que não serão utilizadas, e no menu inicial são 
determinadas as dimensões de todos os parâmetros necessários 
ao programa. Embora isto implique em maior lentidão na exe- 
cução, ganha-se em espaço de RAM. Rotinas envolvendo 
números inteiros e gráficos (SET, RESET, POINT...) são acele- 
radas de 50 a 100 vezes e rotinas com números de simples pre- 
cisão são aceleradas de três a 20 vezes em relação ao interpre- 
trad”. Por ser escrito em BASIC, sua operação é lenta, gastan- 
do 'm minuto para compilar um Kb de programa, mas o resul- 
tauu vale a pena. (Quem quiser compilar o próprio compilador, 
pode tentar...) 

Ele trabalha com números e variáveis inteiros ou de simples 
precisão, até duas dimensões, bem como strings, e compila 
também os principais comandos do interpretador: LET, 
PRINT, IF... THEN... ELSE, GOTO, GOSUB, RETURN, 
FOR... NEXT, INPUT, POKE, PEEK, SET, RESET, POINT, 
CLS, REM, END, DEFUSR, USR, OUT, CHRS$, VAL e as fun- 
ções RND (0), SQR, ABS, LOG, EXP, COS, SIN, TAN, ATN, 
INT e COS. Claro que há limitações: é preciso atender a certas 
exigências na forma de escrever o BASIC para ser compilado e 
a manipulação de strings poderia ser ampliada (à vontade...) 
mas o compromisso trabalho versus benefício já atingiu a um 
bom ponto com o que este compilador é capaz de realizar. Po- 
de-se também trocar variáveis entre um programa em BASIC 
rodando e um programa compilado chamado por aquele via 
USR, tornando o compilador muito útil em programas mistos, 
onde rotinas gráficas (jogos) ou recursivas (matemática) são 
muito lentas quando executadas pelo interpretador. 

Existe ainda a facilidade de se testar e debugar primeiro o 
programa em BASIC, já pronto para a sintaxe de Compiler, 

ue é um subconjunto da sintaxe do interpretador, e, quando 
uncionando a contento em BASIC, compilá-lo (isto pode pa- 
recer elementar, mas tem muito compilador no mercado que 
não permite). 

A listagem 1 contém o programa. Sua numeração deve estar 
sempre abaixo de 1000, pois acima de 1000, inclusive, deve 
ficar co-residente o programa que se quer compilar. O Compi- 
ler/BAS compila tudo o que estiver entre 1000 e 9999, sendo 
aconselhável terminar com 10000 END. Normalmente se faz o 
merge dos programas, digita-se RUN e o Compiler então pro- 
cura a primeira linha maior ou igual a 1000 e pede os parâme- 
tros do programa a compilar, para o dimensionamento interno 
das variáveis do programa e, inclusive, da posição em RAM 
onde se quer colocar o resultado (DUMP e Entry-Point). 


Variáveis e armazenamento 


O Compiler divide a área de operação do programa compi- 
lado em três setores na RAM, de baixo para cima (0 a FFFFH): 
variáveis, programa e textos. Como stack é usada a pilha do 
DOS. Quando se faz um DUMP para salvar o resultado, é sufi- 
ciente guardar o programa e o texto, pois a área de variáveis é 
preenchida na execução do programa. Não se pode esquecer 
que a proteção do memory size deve estar um byte abaixo do 
início da área das variáveis, se o programa for chamado pelo 
BASIC. O Compiler/BAS, em sua finalização, fornece as ins- 
truções e parâmetros necessários. Existem quatro tipos de va- 
riáveis aceitas e armazenadas em posições fixas na área de variá 
veis: 
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— Integer Variables (IV): 26 variáveis possíveis, de A% a Z%, 
sendo que cada uma ocupa dois bytes de memória. 

— Single Precision Variables (SPV): são 286 variáveis possí- 
veis, que vão de A a Z, AO a ZO, Al... Z1,..., até A9 a Z9. Cada 
variável ocupa quatro bytes sucessivos na memória. 

— String Variables (SV): com 26 variáveis possíveis, de A$ a 
Z$. Cada uma ocupa os bytes na área de variáveis definidos 
como comprimento das SVs. 

— Single Precision Arrays (SPA): são possíveis 26 variáveis de 
uma dimensão (1--D), de A(IV) a Z(IV); e 26 variáveis de duas 
dimensões (2-D) — quadradas, de A(IV1, IV2) a Z(IVI, IV2). 
Cada variável ocupa quatro bytes sucessivos na memória. 
importante lembrar que as SPAs de duas dimensões têm que 
ser quadradas. 


O limite da dimensão é a memória do micro. Pode-se usar 
um array além de sua dimensão contanto que não se utilize 
os arrays subsequentes da área de variáveis, ou seja: se 
DIM= 20, é possível usar A(IV) na dimensão 30, desde que não 
se utilize o SPA B(x), que terá seu espaço de memória ocupado 
por A(x). Normalmente, ao se dimensionar os SPA de uma 
dimensão, por exemplo, em 10, serão usados os SPAs cujas IVs 
sejam de 0a 9. 

O compilador aceita a variável A(1%), pois 1% é uma IV. 
Mas não aceita A(2), e se esta for empregada, surgirá uma men- 

em de erro. É interessante observar que as variáveis A, A%, 
A(IV) e A(IV, IV) são diferentes. 


Definições e abreviações 


e Integer Variable (IV): A%... Z%. 

e Single Precision Variable (SPV): A. . .Z, AO. . .Z0, ..., 
A9...Z9. 

e Single Precision Array (SPA): A(IV)... Z(IV), A(IV, IV)... 
Z(IV, IV). 

e String Variable (SV):AS$...Z$. 

e Constante (C): qualquer inteiro ou número decimal. 

e Possível Inteiro (PI): qualquer inteiro na faixa de —32767 
a 32767. 

e Byte Integer (BI): inteiro de 0 a 255. 

e String (S): qualquer sequência de caracteres entre aspas, 
sendo que as aspas finais podem ser omitidas se a string residir 
no final de uma linha BASIC. 

e Integer Expression (IE): qualquer sequência da forma 
YixY2xY3x. . ., em que Y1, Y2, Y3 representam um inteiro 
positivo menor ou igual a 32767 ou então uma IV, e x pode 
ser o sinal de + ou de —. A sequência pode começar com um 
sinal de subtração, mas não com um sinal de adição ou com 
um O seguido de um sinal de adição. Parênteses não são permi- 
tidos, nem necessários. O compilador também avalia expres- 
sões inteiras do mesmo jeito que o interpretador, mas se o resul- 
tado não estiver entre —32767 e +32767, o programa não indi- 
cará o erro e observe-se que 3* 5+1 não é uma IE. 

e Single Precision Expression (SPE): qualquer expressão em 
BASIC (que não seja ilegal), com ou sem parênteses, formada 
de: C, IV, SPV, BI, PI, operadores +, —,*, /, símbolo de POT, e 
as funções RND(0), SQR(SPE), ABS(SPE), LOG(SPE), EXP 
(SPE), COS(SPE), SIN(SPE), TAN(SPE), ATN(SPE). Veja a 
seguir quatro exemplos que ilustram bem: 


a) -(1+SQR(1.2*AS+SIN(A(1I%,9%)*2.5))) 

b) LOG(ARS(20*0.123+1)/SIN(COS(TAN(A(K$)+1)))) 
c) (-1.2+3.4+5) 

d) (I8+9*L$) 


O compilador avalia as SPEs da esquerda para a direita, não 
importando a sua natureza (sejam *, /, +. . .), mas respeita os 
níveis de parênteses. Por isso, é preciso tomar bastante cuidado 
com a forma de escrever as SPEs, devendo-se usar os parênteses 
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QUASAR IV: UMA AVENTURA COMPILADA 


E a a e SR a a 


à vontade para obter o resultado correto. Assim foi feito para 
facilitar a elaboração. Por exemplo, uma linha BASIC, assim: 
AHB+2'C) “(D+E), terá que ser reescrita para:(2"C+B) “(D+E)+A 
ou então AH(B+2"C))*(D+E)). Se houver dúvida, é preferível 
usar parênteses. 


Comandos e sintaxes 


e LET: a palavra LET não é necessária, mas pode ser usada 
nas seguintes circunstâncias: 

1) Integer LET:X=Y 

X:IV 

Y: IE, INT(SPE), PEEK(PI), PEEK(IV), POINT(z, y), em que 
ze y são IVs ou BIs. 

Exemplo: 


X$=5S8+3+INT(2*RND(0))+PEEK(-1) 


2) Single Precision LET; X=Y 
X: SPV 

Y:SPE 

Exemplo: 


Q=SOR( (A*A)+(B*B)) 


3) String LET:X=Y 

X:SV 

Y:S,SV, CHR$(z)+CHRS (y)+. . . em que z e y são IVs ou Bls. 
Exemplo: 


A$="Compiler", AS=CHR$S(32) 


Observe-se que AS+XS. . . ou “abc”+“def” não podem ser 
usados, entretanto, através de PRINTS é possível a concatena- 
ção de strings. 
e PRINT 
1) PRINT (line feed e carriage return) 
2) PRINTA; Yi; 2); + 
X, Y, Z: SPEs, SVse Ss 
3) PRINT O X, Y;Z;... 
X:PI de O a 1023,e IV 
Y, Z: SPEs, SVs e Ss 
4) PRINTO X, Y 
X:Pl de 0a 1023,e IV 
Y:CHRS(BI)+CHRS(BI)+...(neste caso, o cursor não é modi- 
ficado) 
Repare que não se deve usar vírgula, mas sim ponto e vírgula, 
na separação entre variáveis dentro de um PRINT. 
e IF... THEN... ELSE 
1) 1FXusgYTHEN ( * linha) ELSE... 
X: IV, SPE (mas que não comece com uma IV) 
Usg:=, >, <,<>,><,>=<=,=>,=< 
Y:se X=SPE THEN SPE;se X=IV THEN IV ou PI 
* linha: número de linha BASIC 
Note-se que ELSE pode ser seguido de quaisquer outras instru- 
ções, inclusive IF. . . THEN. . . ELSE. 
2) IFXusgYTHEN .......:GOTO( & linha) ELSE...... 
XusgY: igual a anterior 
* linha: número de linha BASIC 
Neste caso, depois de THEN e ELSE podem vir quaisquer 
outras instruções, inclusive IF. . .THEN. . . ELSE. 
3) 1FXusgYTHEN ( & linha) ou então IFXusgYTHEN..... 
isa instruções) 

importante destacar as seguintes características: o limite de 
IFs, um dentro do outro, em uma mesma linha, é de 10; THEN 
pode ser substituído por GOTO ou THEN GOTO (nos itens 1 
e 3); diferentemente do interpretador, é preciso terminar cada 
THEN. . ., quando seguido de instruções, com um GOTO antes 
do ELSE. Veja três exemplos elucidativos: 
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IFA$=B$THEN2000ELSEPRINT"pqgrt" 


IFZ%=>X$THENPRINT"Pelé" : GOTO2000ELSEEND 
IFA<>2*BTHENAS=INT(A):PRINTB 


Repare que: se X=IV e Y=SPE que não comece com uma IV, 
pode-se relacionar (X%)usgSPE ou SPEusg X%. Outra observa- 
ção interessante: IF THEN ELSE com números inteiros é mui- 
to mais rápido. 

e GOTO (* linha) 

* linha BASIC 

e GOSUB (linha) 

e RETURN 

e FORX-YTOZ 

X:IV 

Y,Z: IV, PI 

Observação: Y tem que ser < =Z (atenção que o compilador 
não indica este erro); STEP não é aceito, mas pode-se fazer 
STEPs diferentes de 1 criando-se loops de software ou alteran- 
do-se x dentro do FORX... NEXTX. 

e NEXTX 

XIV 

Observações: X não pode faltar; não se deve pular fora de um 
loop FOR-NEXT sem correr o risco do programa sob execução 
falhar. Cada NEXT deve estar associado ao seu FOR antece- 
dente, mas o compilador não indicará sé isto não for obedeci- 
do. Múltiplos FOR-NEXT são permitidos sem limite. Este 
exemplo demonstra a sintaxe certa: 


e INPUTX ou INPUT “...”;X 

X: IV, SPV, SV 

Deve-se ressaltar que os números podem ter até seis dígitos. Se 
X=IV, é possível introduzir números decimais, que serão trun- 
cados. Não esqueça que números inteiros para IVs devem estar 
contidos entre +/— 32767, caso contrário, um erro fatal ocor- 
rerá. 

O POKEX, Y 

X:Iv, PI 

Y: Iv, BI 

e SET(X, Y); RESET (X, Y); POINT (X, Y) 

X, Y: IV, BI (sendo que dentro da faixa legal para tais funções) 
e OUTX,Y 

X:BI 

Y:Blou IV 

e DEFUSR=X 

X: IV ou PI 

e USR(X) 

X: IV ou PI 

É útil destacar que com os comandos acima (DEFURSR=X e 
USR(X)) um programa compilado pode chamar outro via URS 
ou também rotinas de som, por exemplo: 


40 DEFUSR=AS$:USR(O) 


e CLS; REM ou 'e END 


É preciso que haja um END em cada ponto que se quer retor- 
nar ao programa chamador do programa compilado (como um 
RETURN). No caso do chamador ser um programa do BASIC 
via USR, é antes do END que as variáveis do programa Z80 
podem ser transferidas para o programa em BASIC. 

e X=VAL(Y) 

X:IV 

Y:SV 

Inteiros negativos retornam zero, e inteiros acima de 32767 
retornam como — ( ). Por Exemplo: I%=VAL (A$), em que 
A$='“60000” retorna I%=-5536. 
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Transferências de variáveis 


Como certas funções do interpretador não podem ser com- 
piladas (disco e cassete 1/0, PRINTUSING, manipulação de 
strings. . .), é interessante que ao se elaborar um programa mis- 
to — BASIC e Z80- haja um meio fácil de se transferir dados 
em variáveis entre um programa e outro. Para isso, o Compiler/ 
BAS utiliza as seguintes instruções: 

e X-0+Y Y(BASIC) para X(Z80) 
X: IV ou SPV do programa Z80 

Y: IV ou SPV do programa BASIC 

e X-1'Y X(Z80) para Y(BASIC) 
X: IV ou SPV do programa Z80 

Y: IV ou SPV do programa BASIC 

(Obs.: ambas IVs ou ambas SPVs) 


Eis alguns esclarecimentos necessários: se a variável Y do 
BASIC ainda não existir quando for realizado um X=1"*Y, o 
programa compilado usando as rotinas da ROM do micro a 
criará, efetuando normalmente a transferência; se, ao debugar 
o programa fonte em BASIC/CMP, for feito um X=Y, não ha- 
verá interferência na operação; as transferências podem ocorrer 
em qualquer ponto do programa, embora em geral sejam feitas 
no início e no fim (antes do END). 


No menu inicial, os parâmetros 


Ao se rodar o Compiler/BAS, este pede uma série de parâme- 
tros que vão dimensionar as áreas das variáveis, do texto e do pro- 
grama e estabelecer seus respectivos início e fim na memória. 
O compilador calcula as áreas reservadas de cima para baixo, a 
partir do topo da memória (FFFFH-300 bytes de sistema proi- 
bidos). Acompanhe a seguir uma breve descrição da sequência 
de parâmetros solicitados: 

a) Memória para programa? 

Estimativa do tamanho (bytes) do programa compilado (área 
de programa). Como regra geral, estima-se em 1500 bytes de 
Z80 para cada 1000 bytes de ocupação (não após a execução) 
do programa fonte (BASIC/CMP). 

b) Número de linhas a compilar? 


Estimativa do número de linhas do programa fonte em BASIC/ 
CMP. 


c) Números de GOTOs mais GOSUBs? 
Estimativa (superior) do número de GOTOs e GOSUBs exis- 
tentes no programa fonte. 


d) Offset de memória? 

Permite reservar espaço adicional no fim da memória, fazendo 
com que o topo da RAM para o compilador não seja FFFFH — 
300, mas FFFFH-300 menos o valor fornecido neste parâme- 
tro. Se for 0, o topo permanece em FFFFH-300. Isto é muito 
útil quando se quer usar vários programas compilados juntos 
que, é claro, não poderão ocupar a mesma região; ao se compi- 
lar o segundo programa, por exemplo, dá-se um offset equiva- 
lente à área efetiva (variáveis+programa+textos) do primeiro 
programa, o que permite ao compilador reservar uma área para 
ele, no topo da RAM. 


e) Bytes para texto? 

Estimativa do número de caracteres a serem usados como tex- 
to no programa. Texto para o compilador é toda string entre 
aspas dentro de um PRINT. Por exemplo: PRINT “Pitrusgh”. 


f) Neste ponto, o compilador vai procurar a primeira linha 
igual ou superior a linha %* 1000 dentro do BASIC onde 
estão o Compiler/BAS e o programa fonte (de 1000 a 9999). 
Esta procura demora cerca de meio minuto, e isso é muito 
importante. (Quem quiser colocar o programa fonte antes 
do compilador para pegar logo a primeira linha BASIC para 
compilar, pode fazê-lo, mas vai ter que se preocupar com a 
virada: dos endereços e ponteiros internos de 32767 para 
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— 32768 das variáveis inteiras usadas nos POKEs e PEEKs 
do programa, após os 32 Kb de memória inicial. Usando-se o 
BASIC Disco, depois do compilador a linha 1000 do programa 
fonte estará certamente após o endereço 32767. 

q Entry-Point ok (S/N)? 

mostrado o Entry-Point do programa calculado após as áreas 
já definidas e deve-se responder se está ok ou não. Caso queira- 
se determinar um outro Entry-Point, é só responder não que o 
menu pedirá o novo endereço decimal, e uma nova localização 
= programa compilado é calculada em função do novo Entry- 

oint. 
h) Número de SPVs com números? 
O número de variáveis inteiras possíveis é fixo em 26, de A% a 
Z%. O número mínimo de SPVs possíveis também é 26 (de A 
a Z) se for respondido O, mas existe a possibilidade de se che- 
gar a 286 combinando-se números com letras. Se a resposta for 
1, estarão disponíveis as variáveis de A a Z e de AQ a ZO, e 
assim sucessivamente até 10: de A-Z, AO-ZO. . . A9-Z9. Por- 
tanto, ao se escolher as variáveis SPVs do programa fonte, de- 
ve-se fazê-lo nesta sequência para não desperdiçar memória, e 
jamais usar A, XI e Z9. Cada SPV usa quatro bytes e se for 
preciso utilizar todas as SPVs haverá o emprego de 1144 bytes 
da memória. 
i) Dimensão dos arrays de uma dimensão (1—-D)? 
Seu único limite é a memória disponível. Como os arrays de 
uma e duas dimensões (1-D/2-D) são todos SPVs, cada uni- 
dade do array precisa de quatro bytes. 
j) Numero de SPAs de uma dimensão (1-D)? 

LA( );2:A( )-B( ); 3:A( BC HOC); 26:A( Da Z() 
k) Dimensão dos SPAs de duas dimensões (2—D)? 
São sempre quadrados e o limite é a memória. 
1) Número de SPAs de duas dimensões (2—-D)? 
LA(,); 2:A(, -B(, ); S:A(, ) a E(,); 26:A(, )a ZC,) 
m)Número de variáveis strings? 
I:AS 2:A$,B$ 3:A$S,B$, C$ ... 26:A$,B$,....,ZS$ 
n) Comprimento máximo das SVs? 
De 0a 255. 

Agora o compilador dá uma geral nos parâmetros e aguarda 
um sinal após a revisão do usuário e, finalmente começa. Se for 
encontrado algum erro na sintaxe apresentada, o compilador 
pára e mostra O número da linha incorreta. A medida em que o 
trabalho é realizado, algumas informações são exibidas na tela 
para permitir o acompanhamento da compilação. Se uma das 
três áreas (variáveis, programa e texto) se sobrepor à outra, é 
indicado o erro. 

Ao terminar a compilação, é apresentado um mapa de ende- 
reços da memória utilizada, com início e fim de todas as áreas 
de IVs, SPVs, SPAs de 1-D, SPAs de 2-D, SVs e códigos de 
máquina com programa e textos. E, por fim, o compilador 
acaba, oferecendo duas opções: 

1 - RUN: executa o programa compilado e já na memória; 

2 — SAVE: mostra no vídeo o DUMP necessário para se salvar 
o programa da memória, com os parâmetros de INÍCIO, 
ENTRY-POINT e FIM. Note-se que o comando DUMP só pode 
ser executado manualmente, pois não permite variáveis nos 
seus parâmetros (tanto em TRSDOS quanto em NEWDOS). 


Dicas para não errar 


É fundamental seguir as regras já descritas, pois o compila- 
dor nem sempre indica que há erro na linha tal e, se houver 
erro e o programa for executado. . . Adeus! Justamente para 
evitar isso, leia com bastante atenção estas dicas: 

— Os comandos corretamente especificados, exceto em um 
caso de PRINT Q e de USR ( ), deverão ter os mesmos resul- 
tados quando rodados em BASIC ou compilados. 

— Cuidado especial deve ser dado às expressões de simples 


precisão (SPE), não se esquecendo a ordem de execução dos dê 
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QUASAR 1V: UMA AVENTURA COMPILADA 


operadores aritméticos, da esquerda para a direita. O uso de 
parênteses pode facilitar muito. 
— As variáveis devem ser inicializadas antes de serem usadas 
pela primeira vez, pois se não são zeradas, contêm lixo. 
— Não são aceitos espaços (blanks) em meio aos comandos. 
Assim, é errado digitar A% =2, o correto é A% =2. 
— Múltiplos comandos em uma mesma linha são normalmente 
permitidos, desde que sejam separados por dois pontos ( : ), 
por exemplo: PRINT “Name”; : INPUTAS. 
— Para passar o valor de uma SPV para uma IV, utiliza-se a 
função INT( ). Exemplificando: X% =INT(A) ou então X% 
=INT(A *RND(0)). 
— Muita cautela com os parâmetros: coisas muito esquisitas 
podem acontecer se eles forem mal dimensionados. 
— aproveite a velocidade dos comandos PRINT Q , SET, 
RESET e POKE para dar ânimo ao visual dos seus programas. 
Sem esquecer de incluir rotinas para controle da velocidade. 
— O compilador não verifica se o resultado para uma IV é um 
inteiro: 40000 não cabe em X% e, assim, não vai funcionar 
direito. 
— Um GOTO não deve ser colocado dentro de um FOR... 
NEXT. Aliás, não inventar na programação é sempre um bom 
conselho. 
— Rotinas de som são sempre melhores se geradas em Assem- 
bler e não compiladas. Mas, variando OUT255,X pode-se obter 
um resultado razoável. 
— Melhor do que empregar o INKEY'S é usar PEEK (endereço 
do teclado). Fazendo PEEK(14400), tem-se: 1-ENTER, 
2-CLEAR, 4-BREAK, 8-UP, 16-DOWN, 32-LEFT, 64-RIGHT, 
128-SPACE. . . (o manual do equipamento deve ter os demais 
endereços). 

E nada melhor do que testar tudo o que foi afirmado sobre 
o compiler/BAS com este exemplo de aplicação, que roda 
umas 25 vezes mais rápido do que em BASIC: 


1000 INPUT"Name";AS 

1010 CLS:A$=0:GOTO1100 

1020 X%=INT(128*RND(0)):Y$=INT(48*RND(O) 
) : RETURN 

1100 FORJ$=1T030:0UT255,3:GOSUB1020:SET( 
X%,Y8%):OUT255, 1:GOSUB1020:RESET(X%,Y$):N 
EXTJ$ 

1110 IFAS=OTHENPRINT 506,".";AS;". 
1:GOTO1120ELSEPRINTES06," 
=0 

1120 FORJ$=1TO70:0UT255,1:FORK$=)8TO77:N 
EXTK%:OUT255, 1: NEXTJ$'som e delay 

1130 J3=PEEK( 14400): IFJ$<>4THEN1100ELSEE 
ND 

10000 END 


Os parâmetros para compilação do exemplo acima são: uns 500 
bytes para o programa (dá e sobra); 10 linhas; 10 GOs; offset 
zero; 100 bytes para texto; Entry -Point ok; SPVs com núme- 
ro igual a zero (o programa nem usa SPVs); DIM 1=D, nú- 
mero 1-D, DIM 2-D e número 2-D, tudo zero; número de 
SVs igual a 1 (usou-se só A$); comprimento de SVs igual a 
10 e... Pronto. 

Vamos agora à listagem 1. 










mais. 
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€ CBBSs — como funcionam, o que oferecem, quais os existentes etc. € Repor- 
tagem sobre clubes de usuários e pontos de encontros 6 Técnicas de Rede PERT 
para Apple e Sinclair € Para TRS-80: continuação do MBDADOS € No Banco de 
Software: Controle de congelados, Conta bancária, Funções no CP/M e muito 








Listagem 1 - Compiler/BAS 


O "Basic Compiler. mmumena 
1 POKEL6S61,255:POKE16562,2552POKEL6S44,2551POKEL654S, 2551CLEAR 
CLS:PRINT996O, “Memoria Disponivelt”;MEM-2580; IL |=65536-MEM+24001 
I!=INT(L!/256) :POKEL6562, 1 2POKEL6561,L1-2568I! 1GOTOL4P 

2 POKEM,PIPRINTP; 2M=H+4 RETURN 

3 PC=PEEK(Q) IPN=PEEK (Q+1) 2Qua+1: IFPC=I2THENSELSELFPC=0C=21RETURN 
ELSERETURN 'peek proximos codigos basic 

4 PC=PEEK(Q):Q=0+1 RETURN 

S IFPCC6SORPC)9OTHENBELSERETURN 

6 IFPNC)37THENBELSEQ=0+1 RETURN 

7 IFC4)9990RCIC10D0OTHENRETURN 

8 PRINTEPRINT“ERROR LINE NºGLACLISEND 

9 PRINTO4SO, TIMES; IRETURN 

10 I=PEEK(FNA(G+2))+2568PEEK(FNA(Q+3)) RETURN 

11 "Rotinas de simples precisao 

12 GOSUBIGOSUBS:VI=PC-65: IFPN<ABANDPN)SZANDPN( 21 3ANDPN() 4DANDC 
FOATHENO 

13 IFPN>47ANDPNCSBMI=PN-47 :GOSUB3ELSEMI=O 

14 IFPN=21371=13RETURN 

15 IFPN=40GOSUB3:GOSUBI:GOSUBS:V2=PC-651GOSUB 6 "GOSUB3ELSEIFCF =4Z 
4=1 RETURN 

16 IFPC<)41ANDPC( )44THENG 

47 IFPC=4171=2:RETURN 

18 IFPC=44G0SUBI:GOSUBS:VI=PC-65: IFVI (OORVI )=NTTHENBELSEGOSUB 6 1Z 
1=3:60SUB3: IFPC()410R (PN()213ANDCF()1)THENBELSERETURN 

19 'Calculo Endereco 

20 ONZ1GOSUB21,22, 23:RETURN 

24 IFMIDISTHENBELSECA=VF+(VI+HInZ6)n4:GOSUBBILGOTOL 2 

22 V7=Vi :VB=y2sGoTos 

23 V7=Vi 1VB=V2IVP=VIsGOTOZ6 

e4 "Arrays 

25 VO=VBIGOSUB 1171 GOSUBLL42CL=VA+V7 DONA: GOSUBBI:GOSUBL 14 GOTOLL 
3 '1-d 

26 VO=V93GOSUB1172P=44 7GOSUBZECL=VD+4MNTRDTRDT+2HV7MDTEGOSUBBIIG 
OSUB1 11 :GOSUBL13:P=94:GOSUB2:P=35:G0SUBZ:P=861GOSUB2:VO=VB: GOSUB 
117:605UB114:G0TOS13 "2-d 





Retire Reus eanmuns Zorro/B4 





27 "Avaliacao de Expressoes de Simples Precisao 
28 GOSUBI: IFPC( )20660T030 

29 Ei=0:D1=0:GOSUB 1 12:GOSUB1242GOSUB1241G0TOIS "sinal - 

30 GosuB41 

31 GOSUBI: IFC=20RPC=410RPC=580RPC=590RPC=2120RPC=2130RPC=2140RPC 
=1410RPC=2i HENRETURN 'se terminacao, return 

a2 GOSUB128 "move de (4124H) p/ stack, valor intermediario 

33 'poe nova variavel em 4121H, executa 

34 IFPC=205GOSUB3:GOSUB41 :GOSUB 129: GOSUB134 :GOTO34 "soma 
206GOSUB3: GOSUB44 :GOSUB 129 :GOSUBLI2260T034 "subtrai 
207GOSUB3:GOSUB 41 :G0SUB129:G0SUB133:G0TO34 multiplica 
37 IFPC=208G0SUB3:GOSUB 44 :GOSUB1291GOSUB4341GOTOIL "divide 

38 IFPC=209GOSUB3:GOSUBAS :GOSUB 129 FGOSUB1IS:GOTOZLELSES "exp 

40 "Rotina p/ tratar constantes, variaveis e funcoes em expresso 
es de simples precisao e coloca-las na area de 4124H 

41 TF(PO(SBANDPC)47)0RPC=46GOSUBB6IRETURN "converte constantes p 






as IFP 
36 IFP 








/ representacao de 4 bytes 

42 IFPC=22260SUB3: IFPC()4OTHENSELSEGOSUBI: IFPC( > 4BTHENSELSEGOSUB 
32 IFPC()41 THENDELSEP=2057G0SUB2:P=240:GOSUB2:P=202G0TO2 "Rnd(D) 
4a IFCPC)Z2DANDPC ORPC=2170RPC=40THENSSELSEGOSUBS “funcao ou 









erro 
44 VA=PC-55:TFPNI47ANDPNCSBTHENHE=PN-47 !GOSUB3:Z2=1 *GOTOAPELSEIF 
PNC)4DANDPN()37THENHE=03Z2=1 :GOTO4PELSEIFPN=37 THENZ2=4 1 GOSUBI1GO 
TOMAS 

45 GOSUBI:GOSUBI:GOSUBS:VS=PC-65:GOSUB4:GOSUBI 

46 IFPCC)4LANDPCC)44THENS 

47 IFPC=4122=2 "1-d array 

48 IFPC=4400SUB3:GOSUBS E VA=PC-651GOSUB6172=3:GOSUBIsIFPC()ALTHEN 
8 '2-d 

49 ONZ2G0TOSO,51,52,53 

SO IFME)ISTHENBELSECI =VF+(VA+MENZA) n4 1 GOSUBBI:GOSUBS 1276070127 
St V7=VAIVB=VS:GOSUB251G0TOL27 

52 V7=VAIVB=VS:V9=VAGOSUB26100TOL27 

53 VO=VAsGOSUBL17:P=341GOSUB2:P=331GOSUB2:P=65:BOSUB2:P=2051G0SU 
B2:P=204:60SUB2:P=10:G0TO2 "converte variaveis inteiras em simpl 


es precisao 
54 IFPC=40THENG4ELSEQ=QHA 
THEN6S "sgr 
7THEN66 "abs 
"log 
"exp 
'cos 







ITHEN67 





227THENZ1 " 
63 IFPC=226THENZ2 "atn 

64 GOSUB28:G0T073 

65 GOSUB26:GOSUB 1371607073 
66 GOSUB2B:GOSUBL3B:60TO73 
67 GOSUB28:GOSUB 1391607073 
68 GOSUB28:GOSUB140:60T073 
69 GOSUB2B:GOSUB1 411607073 
70 GOSUB28:BOSUBÍ42:G0TO73 


















CLAPPY LANÇA 
O TI UNITRON 
E EXPLICA: 





TLQUER 


Quatro. Repetição 
automática decaro 
teres. 

Cinco. Diagnóstico 
de teste automático 
ao ligar. 

enha conhecer o 
TI pessoalmente na 
Clappy ou solicite a 
visita de um Consultor 
Técnico Clappy no 
seu escritório. 

Aliás, na Clappy 
você encontra tudo o 
que precisa em 
microcomputadores, 

riféricos, suprimen- 

, Softwares. Além 
de cursos próprios de 
programaçãoe | 
operação, assistência 
técnica, implantação 
e instalação de siste- 
mas. E mais. 

Aplicativos 
comerciais: contabili- 
dade, controle de 
estoque, folha de 
pagamentos, contas a 
pagar e areceber. 

Aplicativos de 
apoio: planilha 
financeira, processa- 
mento de dados 
mala direta, cadastro 
e controle financeiro, 
gráficos, etc. 

Seja por venda, 
= seja por leasing, 
ninguém pode fazer 
um pe melhor do 
que a Clappy. 






. DIZER TECLADO clazey 


O TI é o mais novo 
microcomputador da 
Unitron. . 

Ele tem um mi- 
croprocessador 6504 
e um teclado 
inteligente. Isto é, 


NTELIGENTE. 


um teclado gerador 
de caracteres para a 
lingua portuguesa. 
Veja o que este 
teclado pode fazer : 
Um. Programação 
de funções especiais 


loja e sobreloja. 

Tel.: (021) 253-3395 

Centro: R. Sete de Setembro, 
88-loja Q (galeria) 

Tel.: (021) 222-5517/222-5721 
Copacabana: Rua Pompeu 


Loureiro, 99. 
em qualquer tecla. Tel.: (021) 257-4398/236-7175 
ois. Redefinição e pra diariamente das 
dt s oras e aos 
das posições da tecla sábados das 9 as 14 horas. 
pelo próprio usuário. Estacionamento próprio. 
ês. Modo de Assistência Técnica: 


operação igual à 234-9929/234-1015 
maquina de escrever. 


Entregamos em todo 
Brasil pelo reembolso Varig. 


QUASAR IV: UMA AVENTURA COMPILADA 


2 Tee mms 


74 GOSUB20:GOSUB143:60T073 
72 GOSUB2B:GOSUBÍ44 
73 IFPEC)ALTHENGELSERETURN 
75 '»* Rotinas de Conversão “x 
76 "Calculo de Lsb/Nsb de string numerico inteiro CAscii) 
77 08=""; IFPC=206THENPC=45:GOSUBB1ELSEGOSUBSO: IFCS=""THENCI=—1:R 
ETURN 
78 CL=VALCCS) 
79 Di=C1/2562E1=CL-D1n2564 IFC1COTHENDL=D1+256:C1=-C1IRETURNELSER 
ETURN 
IFPC(4BORPC)57THENRETURN 
CS$=CS+CHRSCPC):GOSUB3:60TOBO 
“Calculo de enderecos acima de 32 
Di=C1/256:Ei=C1-D4 "256201 =D1+2567RETURN 
TeUT+VI AVL IPL=Z/2561P=7-P1N2S64PL=PÍ+2562RETURN 
"Conversao de string numerico em simples precisao, 4 bytes 
CS=CHRSCPC) 
GOSUBI: IF CPCCSBANDPC) 47 )ORPC=4605=CS+CHR$(PC) 2GOTOB7 
88 R=VAL(CS) 2GOSUBA91EL=3:D1=657GOSUBL 12:01 OSUB 1 161P=35260 
SUB2:C1=82:GOSUB1 16:P=35:GOSUBZ2C1=B1 *GOSUB 1 16:P=35:GOSUB2:CI=BE 
2GOSUB4 1610=0-12RETURN 
89 IFR=OTHENBE=0:81=0:82=0:83=05RETURN 
YámitY2=24N=4 is IFYSDRTHENDI 
IFY2C=RTHENYI=YL+YI 2 YZ=Y2+Y2ENSN+1 EGOTOPLELSEDA 
IFRCYATHENYÍ=Y1/22Y2=Y2/22N=N-1 2607093 
BE=N+126:Xi=0:R=R-Y1:G0SUB97 :Bi=B 
GOSUB9B:X1=X100SUB97 :B2=B 
GOSUB98:X1=X2GOSUB97 2B3=8 RETURN 
GOSUB96:X2=X 1 GOSUB9B: XI=X1GOSUB9B:X4=X:GOSUB PE: 
6=X1GOSUB9B:X7=X EGOSUB9B:XB=X1B=X1+X1+X22B=8+5+X38 
+X5:B=8+B+X6:B=8+8+X728=8+8+XB2:RETURN 
98 Yimv1/27RT=R-Yi2IFRTCOX=0:RETURNSELSEX=1 2R=RTERETURN 
99 "Poke string na area temporaria 
100 Ci=HF:GOSUBBI:GOSUBL1Z:NN=L 
IFPC=3460T0409 
GosuB108 
IFFP=1ANDPEEK (Q)=320=0+1 !PC=32:NN=NN+1 1G0TO105 
GOSUB3NN=NN+L 
IFFP=LAND(PC=340RC=2)GOTOL09 
IFFP=DAND(PC=SB0RC=2)60TO109 
gorosoz 
C4=PCEGOSUBL 16: IFPC( OTHENP=35:60TOZELSERETURN 
13C=0:PC=3:60SUB108: IFNN)SLTHENPRINT:PRINT"STRING TOO LO 
TOB:ELSERETURN 
»* Codigos de maquina + usados me 
P=17:GOSUB2:P=EÍ 1GOSUBZ:P=D41GOTO2 "LO DE,ES,D1 
P=a3A0OSUABAP=Es AGOSUBZIP=DÍTOOTOR "LD HL,ES,DL 
P=252G0TO2 "ADD HL,DE 
P=41:GOSUB2:P=412:G0TO2 "2x ADD HL,HL 
P=295:60T02 "EX DE,HL 
P=54:GOSUB2IP=CLEGÓTOZ "LD (HL),C4 
CA=VT+VO+VO:GOSUBBI:P=421GOSUB2 


P=42:GOSUB2:GOSUBB4 1 GOSUB2:P=P1:GOTOZ "LD HL, CPLP) 
P=34:G0SUB2:GOSUBB4: GOSUI =P12:GOTOZ "LD (P4P),HL 
P=195"GOSUB2*P=E1 :GOSUB2:P=DÍzG0TO2 "JP ELDL 
P=183:G0SUB2:P=237:GOSUB2:P=82260T02 "OR A, SBC HL,DE 
P=40:GOSUB24P=3:G0TO2 'JR Z,3 

P=225:G0TO2 "POP HL 


Ef 1GOSUBZ:P=D11GOTOZ "LD H 


972G0TO2 "(4121H)=var iavel 
2G0TOZ "(Stack)=(4121H) 
PaipaiGosUBa GoToL?s "POP BC, POP DE 
"Rotinas Aritmeticas e Funcoes 
P=2051G0SUB2:P=22:G0SUB2:P=71G0TOR 
P=2051G0SUB2:P=19:GOSUB21P=7:G0TO2 
P=2051GOSUB2:P=71 :GOSUB2:P=B:GOTOR 
P=2051G0SUB21P=142:G0SUB21! 


P=205 suB2 
P=205:GOSUB2:P=2391GOSUB21P=10:GOSUB2*P=2051G0SUBZ:P=119:608 

UBZ1P=91G0TO2 

139 P=2051GOSUB21P=9!GOSUBZ:P=B:GOTOZ 

440 P=205:GOSUBZ:P=571GOSUB2:P =20:G0T02 

141 

142 

143 

144 

145 

146 

147 =203:G0SUB2:P=92G0TOZ 

148 "um Entrada principal 

149 CLEARBO:RESTORE:DEFINTA-Q,S-X,Z!PRINTRO, “MICRO BASIC COMPILE 

R”, TAB (40)“NEUDOS2.0 

“TAB(25)"BY Zorro (84 


1000 a 9999": FORPC=1T0300:NEXTPCIPRINT” 

Para i rucoes, leia Micro Sistemi FORP=4T0300:NEXTP :PRINT 
450 M=0:Q=0:PN=01C=0:Ci=03V1=0:L 208 J=03E1=0:D1=0:0H=0:DN=0 
454 DEF FNACY)=Y+(Y)32767)n65536 
452 INPUT“NUMERO DE BYTES P/ PROGRAMA (TOP MEM)”; ZIzINPUT"NUMERO 
DE BASIC LINES MAXIMO A COMPILAR”;Q3INPUT“NUM. MAX. DE GOTO 'S+6 
OSUB "57 ;K 
153 DIMLICQ),A(K),L2ta),DC25),E(25),SM(LO)ETS=” 4 
154 MR=0: INPUT” MEMORY OFFSET”; IS INPUT“BYTES PARA TEXTO" ;PArPB=-P 
A-300-I1RR=65536 
195 K=01T=PEEK(16946)+2560PEEK (L6D4PHIHS=-IITPB-HRRIOIGA PRINTOP 
rocurando ía linha )=1000...”;2G=FNA(Y) 
156 GOSUB1O!PRINT9BOO, 1; *IFI)=1000THENSS7ELSEG=FNA(PEEK(Q)+2564P 
EEK(FNA(Q+1)))260TOLSó 
457 PRINT“OK”:PRINT“Entry points“;RR+HSy E INPUTCOK (S/N)“yCSsIFCS 
=“NºTHENINPUT“NOVO ENTRY POINT (dec)”;I!:I=RR+MS-I!2IFIC=DTHENIS 
7ELSEMS=NS-I1PB=PB-I 
158 PT=PBSMC=H5:M=HS: INPUT“SINGLE PRECISION: A,AO 

3Z,Z0,...,Z94X(=10)", ISTINPUTYS-D ARRAY DIMENS: 

2,007 INPUTNUMERO DE POSSÍVEIS 1-D VAR ARRAYS (A,B,...x).X(=26 





“NO 
159 INPUT”2-D ARRAY SQUARE DIMENSION A(O-x,0-x). X)=0.";DT: INPUT 


“NUMERO DE 2-D SQUARE ARRAYS (A,B...x). X(=26.7;NT:INPUT/NUMERO 
DE VARIAVEIS spa CAS,BS,...Z5) ((=26).";NS?INPUTOSTRING-VAR L 
ENGTH. ((256).” 
160 DS aSE CRE EA o 1+IS)+VTIVAS-4ANORDO+VF EUD=-4MNTADTRDT 
-2ANTADT+VA:VS=-NS%(SL+1)+VDEVN=-(5L+4)+U5 
164 CLSIPRINTSTRINOS (64,179); 3PRINTO2S, “um RELATÓRIO um“2PRINTON 
umeros SPV adicionais:”; TAB(32)15;” 
Dim de 1-D arrays! ”; TAB(32)DO;” 
Dim de 2-D arrays!”; TAB(32)DT;” 
String length”; TAB(32)SL 
162 PRINT"No de var. 1-Dim:”; TAB(I2)NO;” 
Variaveis 2-Dimi”; TABCIZ)NTE” 
Var iaveis strings!”;TAB(32)NS;” 
Textos, area & start:”“;TABCIZ)PAS” & “sPT 
163 PRINT“Start of machine codet”; TAB(IZ)MC;” 
Integer & single var.2“;TABC32)VT;“AC;UF;” 
per of 1-D & 2-D arrayst”; TABCIZ)VA TAS VD” 
t of string stor. 2“; TAB(IZ)US;” 
: orary storaget”; TAB(32)UN 
164 1F655I6+UNC=256MPEEK (16562) +PEEK (16561) THENPRINT/MEMORIA RES 
ERVADA OVERLAP BASIC“:END 
165 PRINTA960, “APERTE. ..”; E IFINKEYS=""THENSGSELSECLS:POKEL6916,1 
2PRINTSTRINGS(44,95); !PRINTOO, “( ZORRO BASIC COMPILER 2º; 
166 PRINTEPRINTSPRINT/Subrot inass“2PRINTOC GMs 03.05 
467 Ci=H+3:GOSUBB3:XH=D4 :XL=EÍ Ci =M+37 :GOSUBB3:GOSUB 120 
168 DATA42,32,64,54,63,95,54,92,35,34,92,64,33,232,65,6,240,205, 
247,5,245,72,6,0/9,54,0,33,252,65,244,216,175,201 
169" FORI=i TOSA READP E GOSUBZSNEXTI 
470 IFNT>OTHENGOSUBI6IELSEGOSUBI72 
471 GosuBs 
472 LeL+1:MI=FNACPEEK (GQ) +PEEK(Q+ )N256) ELACLI=PEEK(G+2) +PEEKCG+S 
yu256 
473 IFLL(L))9999THENL=L-1:GOTO2ZOL 
174 PRINTAPGO, “MOILÍCLO SC 5M5 DM p LOCAL) =MIQuA+A 
175 C=0:605UB3: IFC=2THENZOO 
176 IFPC=1330RPC=1340RPC=1 360R (PC)137ANDPCC140)0RPC=1420RPC=1440 
RPC=14B0R(PC)LAPANDPC(176ANDPC()160)0R(PC)17BANDPC(109)0R(PC)189 
ANDPOCZOZANDPO( 3193) ORPC=2030RPC=2040RPC=2100RPC=24 1 THENS "erro 
477 IFPC=2150RC(PC)ZIGANDPCC2240R(PC)228ANDPC(251)THENS “erro 
178 IFPC=140THENGOSUBIELSEIFPC=160THENPRINT” Out 3; :GOSUB374 2605 
UB37926070495 "Out 
479 IFPC)64ANDPCCPLANDPN=370=0-1 PRINT” Let%3”;3GOSUB213460TO195 
"integer let 
180 "Simples Precisao Let 
181 IFPC)64ANDPCCPLANDPNC)37ANDPNC)360=0-1 PRINT” Let 14”; 2GOSUB4 
2:60SUB3:GOSUB3: IF (PC=49ANDPN=207) OR (PC=48ANDPN=205) GOSUB309 :GOT 
OL9SELSEQuA-21GOSUBI: IFPC( 21 I9THENGELSEGOSUB 28: GOSUB20:GOSUB 147 
BOTOL9S 
182 IFPC)64ANDPCC9LANDPN=340=0-1 PRINT” Let$4”; EGOSUBIL41GOTOLPS 
"string let 
483 IFPC=176THENPRINT” Pr intt-p 1GOBUR2I2 100 TOL9SELSEIFPC=176THEN 
PRINT” Def”; 2GOSUB38L 1BOSUB379260T049S "print, di 
484 IFPC=L44THENPRINT” COR UR dr GOSUBSOS! GOTOLSSELSEIFPC=19ITHENP 
OSUB379 26070495 "goto, usr 
485 IFPC=143PRINT” 1f:”; 1GOSUB263:G0T0195 "if..then..else 
186 IFPC=1ASPRINT” Gosubt”; 1GOSUB305:6070195 "gosub 
187 IFPC=146PRINT” Ret 1”; :GOSUB307 16070495 "return 
488 IFPC=132THENPRINT” Cls:”; :P=205:G0SUB2:P=201 !GOSUB2:P=1:G0SU 
B2:60SUBI: IFPC( )SSANDO( )2THENGELSEL9S "cs 
189 IFPC=137PRINT” Input 2”; SGOSUB254 :GOSUB379260T0495 "input 
190 IFPC=129PRINT” Fors”; GOSUBII2:G0T0195 "for 
494 IFPC=13SPRINT” Next 1”; EGOSUB342260T0195 "next 
192 IFPC=L300RPC=I34PRINT” Set & Rest”; 1GOSUB3AA:GOTOL9S "set 8 
reset 
193 IFPC=177PRINT” Poket”; 1GOSUBIS7:G0TO195 "poke 
194 IFPC=128PRINT” Endi”; 1P=205:G0SUB2:P=157:GOSUB2:P=10:GOSUB2: 
P=201 1GOSUBZ"GOSUB3 “end 
195 Ci=PEEK(Q-1) 2 IFFO()OTHENL96ELSEIFCL=5STHENPRINTTS; !GOTOL7SEL 
SEIFC1=149THENPRINT” Else”; 2G0T0475ELSE200 
196 IFC1=5BTHENPRINTIS; :GOTOL7SELSEIFCL=149THENCL=H2GOSUB79:PRIN 
7” Else”p2I=SH(FO)2FOSFO-1:IFPEEK(I)=40THENI=1+3260T0197ELSEI=1+ 
11G0SUB198: IFPEEK(I+2)=2500RPEEK (1+2)=242THENI=1+326070197ELSEL7 
SELSEIFCIC)OTHENPRINT” Thent”; 20=0-4160TO17SELSEL99 
197 GOSUBL9BIGOTOL7S 
198 POKEI,ESIPOKEI+1,DIZRETURN 
199 IFFO()OTHENCL=M: GOSUB79:FORVI=LTOFOSI=SH(VL) E IFPEEK(T)=40THE 
NI=1+3160SUB198:NEXTVIELSEI=1+1 :G0SUB198: IFPEEK(I+2)=2500RPEEKCI 
+2)=242THENI=1+31GOSUB 198: NEXTULELSENEXTVA "Ajuste de Else 
200 FO=0:Q=M1 :PRINTIGOTOL74 “proxima linha 
204 PRINTIGOSUBS !PRINTOP6O, “AJUSTANDO JUMP ADDRESSES . . .“p3IFK 
=D60T0206 
202 FORI=1TOKIDN=PEEKCACI))+256NPEEK (ACI) +4)EDH=0 
203 FORJ=1TOL:IFON=LA(J)THENDH=L2(J) EPRINTLACI) 
204 NEXTJSCL=DH:GOSUBOIIPOKEACI),ELIPOKEA(I)+1,DLZNEXTI 
205 "Finalizacao »» 
206 PRINTIDEFUSRO=HCIRI=RR+HCIRZERR+L+HIRISRRAUNERASRRAPE prepa 
ra DefusrO p/ execucao 
207 PRINTIPRINT”Início da area das variaveis 
“Início do progra “TAB (32)RA PRINTF im 
32)R2:PRINT“FIm da area de textos...“; TAB(IDIRA 
208 IFM)PTTHENPRINT”ERRO: PROGRAMA E TEXTO OVERLAP” 
209 PRINT“C(S) TO SAVE OR CR) TO RUN MACHINE CODE.....” 
240 AS=INKEYSIIFAS=”"THENZIOELSEIFAS=“R”THENCLSIPOKE 16916, 0:X=US 
R<0):GoTO2O? 
244 IFAS()"S”THENZOPELSEPRINTIPRINT"Para gravar, execute em Disk 
ic modo diretos 
CHD 'DUNP, Fi lename,sR$ 7” IRA "yR4:PRINTIPRINT" Início da area 
de memoria reservada par =" ;R3$” 
Cirsdos Basici Memory Size ou NevDos Basict Himem)“:END 
212 'Operacoes com inteiros 
213 GOSUB3:GOSUBS 1 GOSUB6 VÍ =PC-652GOSUBI: IFPC()213THENE 
214 GOSUB3: IF (PC=49ANDPN=207)0R(PC=4BANDPN=205) THENZ27 
215 IFPC=21660SUB3:GOSUB28 1 GOSUB 1 46:P=205:GOSUBZ:P=61 :GOSUBZ:P=1 
1260SUB2: IFPC()44THENBELSEGOSUB3:GOTOL49 “int 
216 IFPC()229THENZI BELSEVI=VÍ 1GOSUB3:GOSUBI:GOSUB77 2 LFCL=-1THENV 
C-651G0SUB5 1 GOSUB 6: GOSUB3:GOSUB118:P=1262GOSUBZELSEP=58:GOSUB 
21P=E1 1GOSUB2:P=D1 :GOSUBZ 
247 P=38:G0SUBZ1P=0:GOSUBZ1P=1 11 1GOSUB2:VA=VIGOSUBL19260TO3 "pe 


“pTABC3D)RIZPRINT 


ek 
218 IFPC=198THENVI=VL E GOSUBI441P=42:GOSUB2:P=33:GOSUB2:P=65:G0SU 
B2:VÍ=V31GOTOS 1PELSEIFPC=24SANDPN=40THEN40O "point 


MICRO SISTEMAS, março/85 


219 V2=V120=0-12GOSUBI: IFPC=206ANDPN)47ANDPNCSSGOSUB77 :GOSUBL 12: 

GOTOZ24ELSETFPC=206THENE1=D:01=0:60SUB1 1226070221 

220 GOSUB77:1FC1()-100SUB1 12ELSEVI=PC-657GOSUBS:GOSUBS :GOSUBL 16: 

GosuBa 

22s IFPC=580RC=2Vi=U2:GOTOL19 

222 IFPC=205ANDPN)47ANDPN(SBSG=205ELSESG=PC:GOSUBI 

223 GOSUB225: IFSG=205G0SUB 1 13ELSEGOSUB 121 

224 GoT0221 

225 GOSUB77: IFCS()-160TOL1 LELSEVI=PC-65:GOSUBS:GOSUBS *P=2372G0SU 

B2IP=91 ELOSUBZIGOSUBSA !GOSUBZEP=P1700SUBZI00TOS 

226 "Transferencia de variaveis inteiras, bi cX user 

227 1FPC=49ANDPN=207CM=1ELSECH=0 

228 QuQ+t :GOSUBI:MF=UNEGOSUB100:0=0+1 1GOSUB1 12:P=2051GOSUBZ:P=13 

2GOSUB2:P=38:GOSUB2 

229 IFCH=0P=26:G0SUB2:P=4 11 :GOSUB2:P=19:GOSUB2:P=26:GOSUB2:P=103 

360SUB2:6070449 "Basic p/ ZB0 

230 GOSUB11B:P=125:GOSUBZ:P=16:GOSUBZ:P=191GOSUBZ:P=124:GOSUB2IP 

=1B2G0TO2 "Z80 p/ Basic 

234 "Print 

232 GOSUBI: IFPC=SBORC=2P1=13:G0TO251 

233 IFPC()64ANDPC()96THENZAMELSEGOSUBI 

234 "Printa 

295 IFPC(S6G=6-1 :GOSUBZ40:CL=C4 +15360:GOSUB31GOSUB79 1 GOSUBLLZELS 

EVI=PC-657GOSUBS: GOSUB 6 3 GOSUB 3: GOSUB3:GOSUR 1 18:01 =603E1=0:GOSUBL 

11:GOSUBL 13 

236 IFPC()247P=34:GOSUBZ:P=32:GOSUB2:P=64 1 GOSUB21GOTOZ44ELSEGOSU 

BI: IFPC()4DTHENDELSEGOSUB240: GOSUB1 16 

297 GOSUB3: IFPC=205GOSUB3: IFPC( 247 THENBELSEP=35G0SUB2:GOTO236 

238 IFPC=59G0SUB3 

299 IFPC()SBANDO()2THENBELSERETURN 

240 C8e”r 

241 GOSUB3: IFPCC)4LANDPCC)44THENCS=CS+CHRS(PC): LFPOCABORPC)S7THE 

NBELSEGOTO24L 

242 Ci=VALCCS) RETURN 

249 "Expressao Simples Precisao & Print String 

d44 IFPLIGAANDPO(DIANDPNAIGQNAM UI =PC-6SICA=US AL NCSL+1) 1GOSUBZ 

5246070247 

245 IFPC=34THENGOSUBI9O:GOTOZ47 

246 Qua-1 1GOSUB2 1 GOSUB 1 46 1P=2051GOSUB21P=1891GOSUB2*P=151GOSUB2 

1P=62:G0SUB2:P=3:G0SUB2:P=18:GOSUBZIGOSUBLAS "print simples prec 

isao 

247 IFPC=44THENG 

248 IFPC=S9GOSUBI: IFPC( )SBANDO( )2THENZ44ELSERETURN 

249 IFPC=SBORC=2Pi=13160T0254 

250 60708 

254 P=62160SUB2"P=PÍ 1GOSUBZ*P=2051GOSUB2:P=58:GOSUBZ*P=3:GOTO2 * 

scroll 

252 GOSUBBI:GOSUB 1 12: GOSUB 1451 GOSUBI: IFPC=34GOTOGELSERETURN "pri 

nt string 

253 "INPUT 

254 GOSUBI: IFPC=34THENGOSUBIPO! IFPC()59THENBELSEZS4ELSEGOSUBS 

255 P=205:60SUB2:P=XL :GOSUBZ:P=XH:GOSUB2: IFPNC)36THENZ59 

256 Vi=PC-652C1=VS+ULmCSL+1) E GOSUBBILGOSUBL 11 
P=1263GOSUB2:P=183:GOSUB2:P =40:GOSUB2:P=51GOSUB2:P=181GOSUB2 

sP=19:G0SUBZIP=24:GOSUBZ:P=2471GOSUB2 IP =621GOSUB2:P= 

a:GOSUBZ:P=1B:GOSUB2 

258 Qua+ 1160703 

259 P=205:GOSUB21P=10B:G0SUBZ:P=14:GOSUBZ 

260 IFPN=97P=205:GOSUB22P=127 1 GOSUB2:P=102GOSUB2:Vi=PC-652GOSUBO 

AFEL=PIDi=Pi:GOSUB1Í2:P=2371GOSUB2IP=751GOSUB21P=331GOSUBZtP=651 

GOSUB2:P=113:60SUB21P=35:GOSUB2*P=1 12:60SUB2:G0SUB3:GOTOI 

264 Q=0-12CF=1 :GOSUB12:CF=0:P=568:G0SUB2:P=175:G0SUB21P =64 1 GOSUB2 

2P=222:GOSUB? :P=4:GOSUB2 1 GOSUB122:P =205:GOSUB2:P=204:GOSUBZ+P=10 

*GOSUB2:GOSUB20:GOSUB1471G0T03 

262 "Integer If-Then Rotina 

263 GOSUB3: IFPNC)37THENZ7PELSEGOSUBS VI =PC-652GOSUB118:GOSUBL1SE 

cosuBa 

264 IFPC=212ANDPN=S21 30RPC=21 3ANDPN=212W1=12:0=0+1:6070270 

265 IFPC=2140NDPN=21 30RPC=213ANDPN=21 4Wi=220=0+1 26070270 

266 IFPC=212ANDEN=21 40RPC=21 4ANDPN=21241=3:0=0+1 16070270 

267 IFPC=212Ui=5 

268 IFPC=2i4aui=4 

269 IFPC=2i34i=6 

270 6OSUBI: IFPCCSBORPC=20660SUB77 !GOSUB 1 12ELSEGOSUBS:GOSUB 6: Vi =P 

C-652GOSUR 1 1 B:GOSUR3 

274 TFXPC=202ANDPNCSBANDFN) 47) ORPL= 144 THENGOSUBISPRINTO Thenhe“y 

ELSEIFPC=202ANDPN=1 44 THENGOSUB3: GOSUB3ELSE IFP C=202THENGOSUB3:GOT 

O27SELSEM 

272 GOSUB77:GoSU67 

273 GOSUBZ74: |=D:GOTOZ69 

274 P=205:G0SUB2:P=57 3 GOSUB2IP=10:G0TO2 

275 G05UB274 

276 FO=FOsLESHCFO) =H5 TEUS CATHENUS =U1 +GELSEMS =Ui-3 

277 1=1260T0289 

278 "Single Precision If-Then rotina 

279 Q=4-1:GOSUBZ8:GOSUB1ZA 

280 1FPC=212ANDPH=21 30RPC=2132ANDPN=212W1=1:0=0+116070286 

284 IFPC=25 AANDPN=21 30RPC=213ANDPN=21 4Wi=220=0+1 26070286 

202 IFPC=212ANDFN=21 40RPC=21 4ANDPN=212U1=3:0=0+1 260TO284 

283 IFPC=Ztoui=s 

264 TFPC=ZIAui=a 

205 IFPE=213Ui=6 

286 GOSUB28:GOSUB 127 :60SUB1I6 

207 IF4PC=202ANDPNCSBANDFN)47 /0RPC=141 THENGOSUBIIPRINTO ThenH:”y 

ELSEIFPC=2O2ANDPN=1 41 THENGOSUB3: GOSUB3ELSE FP C=202THENGOSUBI:G0T 

O275ELSER 

286 1=0:60SUB77:GosuB7 

289 D=D123E=E1:0NWLGOTOZ90,291,277,294,299,295 

290 GOSUBZ2P4:G0TOZG7 

291 GOSUR296160T0297 

2r2 GoTO296 

293 P=40:GOSUB2:P=I:60SUBZIGOTORSS 

294 P=40:G0SUBZ2:P=3:G0SUB216G0TOZ97 

295 G0T02%4 

296 F=202:6070301 

287 P=24226070901 

298 P=194:G070301 

299 F=2502:6070301 

300 1=0:P=1975:6070301 

301 GOSUBZ:IFI=1THENP=0:GOSUBZ:GOTOZELSEK=K+1 2A(K)=MIP=ErGOSUBZ: 

P=DsGoTOZ 


MICRO SISTEMAS, março/85 


302 "Goto 

303 GOSUB3:GOSUB77:GOSUB7 :D=D1 :E=E1:GOTOI0O 

304 "Gosub 

305 GOSUB3:GOSUB77:GOSUB7 :D=D4 2E=E1 1Ci=H+7 1GOSUBBI:GOSUB 1 1 1 :GOSU 
8126+6070300 

306 "Return 

307 GOSUB1231P=233:G0T02 

308 *Transferencia Var. Simples Precisao 

309 IFPC=49ANDPN=207 THENCH=LELSECH=0 

310 GOSUBI:GOSUBI: HF=VN:GOSUB100:GOSUB3:GOSUB112:P=205:GOSUBZ:P= 
131GOSUBZ:P=38:GOSUB2 

341 IFCH=0GOSUB1 15:60SUB 127 :GOSUB20:60TOL47 

342 GOSUBÍ26:GOSUB20:GOSUBÍ27 3 GOSUBÍ23:G0TO447 

313 "Operacao com Strings 

344 GOSUB3IVI=PC-6S2MF=USHULECSL+1) 

315 GOSUB3: IFPC()I6THENG 

316 GOSUB3:IFPC()249THENG 

347 GOSUB3: IFPC=247THENIZ2ELSELFPC)64ANDPC(PLANDPN=36THENI94ELSE 
IFPC()34THENG 

318 PC=PEEK(Q) :Q=0+1:FP=1:G0SUB100:FP=0 

319 GOSUB3: IFPC=34THENSELSERETURN 

324 "Strings com Chr$ 

322 Ci=HF1GOSUBBI:GOSUB1 12 

323 GOSUB3:IFPC()ADTHENDELSECS =" 

324 GOSUB3:IFPC)64ANDPC(91THENVI=PC-65:GOSUBS!GOSUB3: IFPCC)4LTHE 
NOELSEP =56 1 GOBUBZ 4 GOSUBBA  GOSUBZ PmP + GOSUBZ A Pa 4 19 2G05UB2200TOI2 


325 IF(PCC4BORPC)57)ANDPC()41THENG 

326 IFPO()ALTHENCS=CS+CHRSCPC) :GOSUBIIGOTOI2S 

327 CA=VAL(CS):GOSUBL LO 

329 GOSUB3: IFPC=205G0SUB3: IFPCC)247THENSELSEP=33:00SUB2:GOTO32I 

330 IFPC=SB0RC=2THENP=35:G0SUB2:01=3:G0TOL1GELSES 

331 "For Rotina 

332 Ci=M+7:GOSUBB3:GOSUBI:GOSUBS + GOSUB6 VI =PC-65:GOSUBBA:GOSUBI: 

D(VI)=DIZE(VI)=ELEIFPOC)Z1ITHENO 

333 GOSUB3: IFPCCSSORPC=20660SUB77 3 Ji =0: ID=D4 3 TE=ES ELSE JS os sV2aP 

C-652GOSUB6:Ci=VT+V2"2:GOSUBBI: 1D=D1 1 TE=E1 :GOSUBI 

334 IFPC(>169THENS 

335 Boo TCA GORDOS A DAGnaa?7 pior Os FDA CA ERP sELAEIaes 2V3aPC 

-651BOSUB6:Ci=VT+VIN21GOSUBBI:FD=DLZFE=EL:Q 

336 IF J2=0THENP=33ELSEP=42 
GOSUB2:P=FE:GOSUB2*P=FD:GOSUB21GOSUB124 
IFJi=0THENEL=IE:Di=ID:GOSUB1 12 

339 IF J1=1THENP=42:G0SUB2:P=TE:GOSUBZ:P=IDIGOSUBZ 

340 GOSUB1195IFPEEK (Q-1)()SBANDPEEK (Q-1)C)OTHENBELSERETURN 

341 “Next Rotina 

342 GOSUBI1GOSUBS 1 GOSUB4IVL=PC-651GOSUB1 1 8:G0SUBL25:60SUB126:605 

UB124:GOSUB 121 1GOSUB123:P=35:GOSUB2Z1P=1941GOSUBZIP=E(VI)1GOSUBZ: 

=D(V) 1GOSUB2:GOSUBÍ23:G0TOI 

343 "Rotinas Point, Set & Reset 

344 IFPC=130THENW=LELSEIFPC=131THENW=12BELSEIFPC=198THENH=O 

345 Mash 

346 GOSUB3: IFPC( ) 4OTHENGELSEGOSUB3:GOSUB77: IFC1=-1GOSUBS:GOSUB 6: 

VI=PC-651GOSUBB4:D2=P 1 1EZaP :C2=1ELSEEZuESEC2=02IFPC()A4THENA 

347 IFC2=160SUB3:IFPCC)44THENE 

348 GOSUBI:GOSUB77 1 IFCi=-160SUBS:GOSUBS VI =PC-45:GOSUBB4 :DI=P LE 

JePICI=SELSEEI=EL1CI=0s IFPC( AI THENA 

349 IFCI=1GOSUBILIFPCC)4LTHENA 

350 GOSUB3:IFPC()SBANDEC)2THENG 

351 Ci=MA+18+C2+C3:GOSUBBI:GOSUBL 12:00SUB1241E1=126:D1=7:GOSUBL1 

21P=622G0SUB21P=W:GOSUB2:P=245:GOSUB2 

352 IFC2=1THENP=56:GOSUB2:P=E2:GOSUBZ:P=D2:GOSUB2:ELSEP=621G0SUB 

2:P=EZIGOSUBZ 

353 P=245:G0sUB2 

354 IFC3=1THENP=58:GOSUB2:P=E3:GOSUBZ:P=DI:GOSUBZELSEP =62:GOSUBZ 

1P=E3IGOSUBZ 

355 Et=80:Di=1:GoTOL20 

356 "Rotina Poke 

357 GOSUB3:GOSUB77: IFCi=-1THENGOSUBS:GOSUB6: VI =PC-65:GOSUB118:60 

SUB3ELSEGOSUB 112 

358 IFPC()44THENS 

359 GOSUBI:GOSUB77* IFCi=-1G0SUBS:GOSUB6 VI =PC-45:GOSUBBA:EL=P:D1 

=P41P=58:GOSUB2:P=E1:GOSUB2:P=D1 3 GOSUBZ:GOSUBIELSEP=62:GOSUBZ:P= 

EtrGosusz 

360 IFPC()SBANDCC)2THENG 

361 P=119:G0T02 

362 '2-D code store 

363 PRINTIPRINTIPRINTRotina p/armazenar matrizes 2-D:“3PRINTICA 

=VDIGOSUBBILGOSUBL1Z 

364 Ci=VD+4NTADTRDTIGOSUBBI:P=221 !GOSUBZ:GOSUB 1 L22C1=4%DT:GOSUB 

79160SUBL 11 

365 Ci=NTWDTEGOSUB791P=11GOSUBZ2:P=E1:GOSUBZ:P=D1:GOSUBZ 

366 P=221:G0SUB2:P=1171GOSUB2:P=0:GOSUB2:P=221 :GOSUB2:P=35:GOSUB 

21P=2211G0SUBZ:P=1 16:GOSUBZ:P=0:GOSUB 221 1GOSUB2 3 P=35:GOSUB2: 

GOSUBÍ13:P=137GOSUB2 

370 Ci=M-12:G0SUBBI:P=1941GOSUB2:P=E1:GOSUBZ:P=D1:GOSUBZ 

371 P=52GOSUB21P=141GOSUB2:P=255:GOSUB2:C1=M-18:GOSUBBI:P=242:60 

SUBZ:P=E1 tGOSUBZIP=DÍ*GOSUBZ 

372 PRINTOB4O, “Compilacao principal:“:RETURN 

373 "Rotina Out 

374 GOSUB3:GOSUB77: IFCi=-1THENBELSEPO=C1 

375 IFPOC(OORPO)255THENG 

376 IFPCC)A4THENE 

377 GOSUB3:GOSUB77: IFC1=-1 THENGOSUBS:GOSUBS:VÍ=PC-65:GOSUBNAsEL= 

PsDi=P11P=58:GOSUB2:P=E 1: GOSUB2:P=D1 3 GOSUB2:GOSUBIELSEP=622GOSUB 

21P=E1IGOsUBZ 

378 P=211:60SUB2:P=PO:GOTOZ 

379 IFPC()SBANDO()2THENSELSERETURN 

380 "DefUsr 

381 GOSUB3:IFPC=193ANDPN=213THENQ=G+LELSES 

382 GOSUB31GOSUB77 1 IFCi=-1THENGOSUBS:GOSUBS: VÍ =PC-65:GOSUB118:60 

SUB3ELSEGOSUBIIZ 

383 GOSUBZ:P=1421GOSUBZ:P=64:GOTOZ 

384 "Rotina Usr 

385 GOSUB3:IFPCC()40THENE 

386 GOSUB3:GOSUB77: IFCi=-1THENGOSUBS:GOSUBS:VI=PC-65:GOSUBBA:E1= 

PaDi=P11P=SB:GOSUBZIP=E11GOSUBZ:P=D1 :GOSUB2:GOSUB3ELSEP=62:GOSUR 

21P=E1:GOSUB2 

387 IFPC()410RCLCOORCI )2SSTHENGELSEGOSUBI 

388 P=2051GOSUB2:P=PEEK (16526) :GOSUB2:P=PEEK (16527) :60T02 

389 "Armazenamento de textos 
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QUASAR IV: UMA AVENTURA COMPILADA 


—————————wWwwW]wWw—Ww>—w>—>w—>w>——N]) eee 


390 Ci=PBEPRINTO (“;PBy”)“p 2 IFPB)-I00THENPRINT" TEXTO OVERFLOW”:G 
oToB 

392 GOSUB4: IFPC()I4THENPRINTCHRS(PC); POKEPE,PCIPB=PB+1:GOTOI9Z 
393 POKEI 3 
394 Ciel 
BiiZ 
397 P=12G0SUBZ1P=SL+11GOSUB2 


+1 16070252 
OSUBBI:GOSUBL LLIVÍ=PC-65Ci=VS+VIN(SL+1)EGOSUBBI1GOSU 
01GOSUB2 TP =2371GOSUBZ1P=1761GOSUB 
+14 160SUB3160T0379 


400 Q=0+1:GOSUB3: IFPC( 6SORPC)90ORPN( )I6THENBELSEVZ=PC-651CL=US+( 
SL+1) *V21GOSUB3:GOSUB3 

404 IFPC()41THENBELSEGOSUBS3:GOSUB1 121P=2051GOSUB2*P=901GOSUB2IP 
=30260SUB21 QuQ+1 1Ci=VT+20VA 1GOSUBBI1GOSUB 1 121P=1151GOSUBZIP=3516 
=1143G0TO2 

* Compiler/Bas ne 





QUASI/USR 


Este é o primeiro módulo Z80 a ser compilado para a for- 
mação de Quasar IV. A listagem 2 apresenta o programa já es- 
crito na forma que o compilador gosta. Vamos chamá-lo de 
Quasl/CMP. 

Para evitar confusão, deve-se dar os seguintes parâmetros 
de entrada para a compilação na ordem em que são solicitados: 
5000, 150, 100, 5500 (offset para QuaslI/USR, 100 (texto), 
S (deve ser 54636), 1 (SPVs), 0,0,0,0,0 (SVs), 0. 

É IMPORTANTE não errar nem mudar estes dados, pois o 
Entry-Point resultante é utilizado na chamada USR de Quasar 
IV. E se mudar aqui, vai ter que mudar lá, e isso é válido para o 
Quasl e o Quasll. 

Não se pode esquecer de SALVAR o resultado, dando um 
DUMP com os parâmetros fornecidos pelo E Td ecomo 
FILENAME da chamada de Quasar IV, que é QUASI/USR. 

Se até aqui foi tudo bem, ótimo. Caso contrário, é bom es- 
friar um pouco a cabeça e retroceder a leitura. 


1000 
4005 
1010 
1015 


"QUASI/CHP FOR COMPILER munmunsa Zorro/D4 menemeaua 
60TO1440 

"MOVE 16 PONTOS 

AzEXIDX=INTCB) SRESETCAX, BX) FAXSAL+SE IFAL)L26THENSOZOELSESET 


(AX, BX) 3G0TOS025 


1020 


AX=KXIB=YZ 


1025 BX=INT(P)2EX=INTCD) SRESETCBX,EX) BX=BL+S 
1030 IFBX)126THENLOISELSESET (BX,EX):P=BXIGOTOLD4O 
1095 PaXzID=yX 
1040 RESET(CX,DX)sCX=CX+22DX=DL-2EIFCX)126THENLOSOELSEIFDXCITHEN 
1050 
1045 SET(CX,DX):G0TOLOSS 
4050 CX=XXEDX=YX 
1055 BX=INT(E)SRESETCBX,FX)SFX=FX-IEIFFXCITHENSOGDELSESET(BX,FX) 
260701065 
1060 Fi=YZIE=X% 
1065 BX=INT(G):EX=INTCH) RESET (BX,EX) FEX=EL-I 
1070 IFEX(1THEN107SELSESET(BX, EX) :H=EX:GOTOL08O 
1075 GeXzIH=YX 
RESET(OX,HX) 26X=0%-22:HX=HK-22 IFGX(1THENSO9OELSEIFHXCS THENSO 


SET(GX,HX) :GOTOL09S 
BxexxsHK=y% 
BX=INTCJ)SRESETCIX,BX)ELX=[X-S2 IFIXCSTHENSLODELSESETCIZ,B%) 
*B0TO1105 
11400 Ik=Xkz J=yZ 
1105 BX=INT(Q):EX=INTCR)SRESETCBA,EX) BX=BZ-S 
4110 IFBXCATHENS LISELSESETCBZ,EX) :Q=BL:6OTOS120 
1115 QuXLIR=YL 
1120 RESETCKX,LZ)2KX=KA-DRLX=LIHDETFKXCITHENS SI0ELSETFLZ)AGTHENS 
130 
1125 SET(KX,LX)2GOTOLIAS 
4130 Ki=XZsLX=VX 
1195 BX=INT(M) SRESET(BX,NX) ENX=NL+IS LFNZIASTHENS S4ADELSESET (DX, NX 
»EGOTOL SAS 
1140 NX=YZEM=X% 
1145 BX=INT(W) EXSINTCZ) RESET CB, EX) FEX=EX+S 
1450 IFEX)46THENSISSELSESET(BX,EX)37=EX:G0TO1160 
1155 W=XXIZ=Y% 
1160 SET(XX, YX)FRESETCOX,PX)30Z=0X+22PX=PX+2:1FOX)126THENI170ELS 
EIFPX)46THEN1170 
1165 SETCOX,PX):G0TOL175 
1170 0XexksPX=yX 
1175 RESET(GX,RX)SGX=0X+AIRA=RA-S E IFOX)L26THENISBSELSEIFRAC THEN 
1185 
4180 SETCQX,RX)2GOTOLL90 
1185 QXeXLIRA=YA 
1190 RESETCSX, TX) :SX=SX-4LTX=TX-12 IFSXC1THENIZOOELSEIFTXCITHENIZ 
Do 
1195 SET(S%X,TX):G0TO120S 
1200 SX=X%ITK=Y% 
1205 RESET(UZ,VX) SUXEUX-ASVZ=VZ+S 3 IFUXCITHENIZISELSEIFVZ)44THENS 
215 





4210 SETCUX,VX):GOTOL220 

1245 Ux=XKEVX=YX 

1220 EX=INT(A) RESET CWX, 2X) SULSWI+ASZK=ZX+ E TFULI12OTHENIZIDELSE 
IFZX>46THEN$290 

1225 SETCW%,2Z%):RETURN 

4230 WZ=X%:7%X=YZ3RETURN 

4235 "KEYBOARD MOVE 

1240 JX=PEEK (14968) 3 IF JX=16THENL2SDELSEIF JX=64THENS2SS 

1245 JX=PEEK (14344) 5 IF JX=4THENS260ELSE IF JX=1 THENS265ELSERETURN 
1250 XX=XK+121FXXC127THENIZASELSEXZ=126:60TO1245 

1255 XX=X%-421FX%)=1THENIZASELSEXL=1160TOL24S 

1260 Yk=VX+12IFYX(47THENI27DELSEYL=46:RETURN 

1265 YX=YX-1:1FY%)=1THENI270ELSEYZ=1 RETURN 

4270 RETURN 

1275 "RANDOM MOVE 

1280 IFEX()OTHENI290ELSEEX=INTCLONRNDCO)-4.5) 

1285 IFHZCOTHENI295ELSEMZ=INTCLOMRND(0)-4.5) RETURN 

14290 IFEXO0THENI300ELSEIFEX<OTHENS3OS 

1295 IFHXOTHENI3LDELSEGOTOL31S 

1300 XX=X%+12EX=EX-S 2 LFXZCI27THENICOSELSEXK=1262:60701205 

1305 XX=X%-12EX=EZ+42IFXL)=1 THENIZOSELSEXX=1 E GOTO1285 

1910 Y=yX+isNk=HI-L E IPYXCA7THENI270ELSEYX=46 E RETURN 

1315 YX=YX-12MX=HZ+S2IFYX)=4THENS270ELSEVX=1 RETURN 

1320 "VISOR 

1325 PRINTIASZ,CHR$(156); 2PRINTOSAO, CHRSCLBO); 

1330 PRINTOS46,CHR$(184);2PRINTOSLB,CHR$(172); RETURN 

1335 "TESTA CENTRO 

1340 IFX%)49THENIISSELSEIFXZ(SOTHENLISS 

1345 IFYZ)26THENLISSELSEIFYXCIPTHENSISS 

1350 C=0:RETURN 

1955 C=C+1EIFC)LOTHENS36SELSERETURN 

1360 "IMPACTO 

1365 C=0:C0=CO+1 

1370 GosuB1 480 

1375 SET(62,22) 

1380 FORJX=ÍTOZZIKX=INTCS2-(QRJX) )ELXSINTOONJLH6D) MEDO - JK IN=? 
2eJz 

1985 FORBX=KXTOLXISETCB%,MX)ISETCBX,NX) ENEXTOX 

1390 FORBX=HLTONTISET(KX, BXIISETCLA DX) SKASKLHISLXELI-A2SETCKE,E 
X)SSETILY, DX) KKK ELKSLX+S ENEXTEX 

1395 GOSUB1485:GOSUB 10152 GOSUB SÍ 4B0:NEXTJX 

1400 GOSUB1425:CLS:GOSUB1425:CLS:GOSUB1425 

1405 IFCO(6THENI 41 DELSERETURN 

1440 PRINT9473,"C% IMPACTO w)“psPRINTOPAS, “TELASE;S-COsSPRINTOL 
D40,“TIMES"; TO” “s 

1415 FORJX=ITOS12:8X=INTC9S9ARNDCO) DS PRINTOBZ, CHREC126); NEXT 
1420 CLS:GOSUBS485:GOSUB14705RETURN 

1425 FORJX=0T0L023:PRINTOJX, CHR$CL91); ENEXTIZERETURN 

1430 IXe0:1X=12I2END 

1495 "MAIN LOOP 

1440 CLSSXK=622YX=22: TO=3002C=0:C0=0:G05UB1470 

1445 AX=SXXICKSKLIDASYLIFKEYLIGAEXLIHAS VAI IXSXLIKASKIIL KEY LINKA 
20XEXLIPKEYALQLEXAIRAEVALSKEXLE TA VLEULEXLEVAO XUXA Z VIER 
DIMX=D:B=YXIE=XXEM=XI J=VKIP=XIACXK/D) 2D=VXEDEXLIHEVK/220X%/23R 
=yXIM=XXIZ=YX+(YK/2) 

1450 FORJX=1 TO7:GOSUB1325:G0SUBLOLSISETCX%, YX) ENEXTIXERESETCXK, Y 
x 

1455 GOSUB1280:GOSUB1240:G0SUB4 340: IFCO)STHENS 430 

4460 TO=TO-1:PRINTOSZ, “Times”; TO;” “E IFTOVOTHENSASOELSEIZ= 12 Tk= 
4mIZEND 

1465 "MOLDURA 

4470 FORJX=0TOL27:SETCJ%,0)ISETCJ%,47)ENEXTIX 

1475 FORJX=0TO472SET(O, JX) :SET(127, JX) ENEXTIXERETURN 

1480 K=KkXILeLLINO=HZINSNZIRETURN 

1485 KX=INTCK)SLX=INTEL)2MZ=INTCMO) ENZ=INTEN)ERETURN 

+0000 END 











QUASII/USR 
É o segundo módulo Z80. A listagem 3 contém o programa 


para o compilador: QuaslI/CMP. Os parâmetros para esta com- 
pilação são, na mesma ordem de entrada, os seguintes: 4100, 
150, 70, O (offset), 900 (texto), S (deve ser 60236), 0,0,0,0, 
0,1 (SVs)e 10. 


No DUMP para salvar, deve-se dar o FILENAME de chama- 


da de Quasar IV, que é QUASIV/USR. Só isto. 





Listagem 3 - Quasll/CMP 


4000 "JERRY/CMP FOR QUASAR IV (QUASII/USR BY COMPILER) Zorro/8 
4 


1005 EX=0+13CLS:TX=30:FORTX=1T0S15%=30:G0SUB1290:SX=15:GOSUB1290 
2NEXTIX 
1010 FORIX=0T0127:SET(IX,0):SET(IX,1)2SETC(IX,42)2SETCIZ,43):NEXT 


1x 

1015 FORIX=0TO43:SET(O, IX)ISET(S, IX)ISET(126, IX)ISET( 427, IX) ENEX 
TIX 

1020 FORIZ=82T085:FORJX=24T025:SET( IX, JX) NEXT JZINEXTIX 

1025 FORIZ=96T0992FORJX=6T071SETC(IX, JX) INEXTJZINEXTIX 

1030 FORJX=36TO4OISET(114, JX)ESET(L47, JX)ENEXTIXISET( 116,40) SET 
(115,40) 

1035 SET(124,5)1SET(122,4)1SET(118,4):SET(118,2)1SET(122,2)1SET( 
124,7) 2SET(120,7)1POKE1S484, 1451POKELSS4P, 145:POKE1SS47,145 

1040 FORKX=1T015:GOSUB1285:NX=INTCLOSRND(O)+1) 

4045 FORIX=1TONX 
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Aparentemente estes dois cabos 
são iguais. 

Olhe bem e tente descobrir as 
diferenças. 


Solução: 

1-0 cabo de cima é AUDIOFLEX. Ele 
tem continuidade de características 
elétricas ao longo de toda linha, 
porque é fabricado com o melhor 
equipamento e sua qualidade é 
controlada em toda linha de 
fabricação. 

2-0 cabo de cima é AUDIOFLEX. Ele 
é fabricado com cobre eletrolítico 
novo e polietileno novo - nada de 
matéria-prima recuperada. 

3-0 cabo de cima é AUDIOFLEX. 
Sua montagem é rápida e fácil, 
devido às diversificações de tipos e 
cortes bobinados no comprimento 
exato. 

4-0 cabo de cima é AUDIOFLEX. Ele 
passa pelo mais avançado controle 
de qualidade. 






Qualquer dúvida chame nosso Departamento de Engenharia de Marketing 


DESCUBRA AS DIFERENÇAS 


5-0 cabo de cima é AUDIOFLEX. Ele 


é fabricado por uma empresa que 
só fabrica cabos especiais. 


6-0 cabo de cima é AUDIOFLEX. Ele 


é feito com a mais alta tecnologia. 


7 - O cabo de cima é AUDIOFLEX. Ele 


é fabricado em mais de 18 tipos 


diferentes. 

8-0 cabo de cima é AUDIOFLEX. A 
empresa que o fabrica tem um 
Departamento de Engenharia 
preparado para indicar qual o 
melhor tipo para seu caso. 

9-0 cabo de cima é AUDIOFLEX. Ele 
é fabricado em vários tipos de 
bitolas e blindagens. 

10 - O cabo de cima é AUDIOFLEX. Ele 
é fabricado com vários tipos de 
condutores internos. 


Agora, se você está pensando que 
descobriu as diferenças, você errou, 
porque o de baixo também é KMP; 
e a KMP tem a mais alta tecnologia 
em cabos especiai: 








AUDIOFLEX. 
kmP 


Cabos Especiais e Sistemas Ltda. 


BR 116/km 25. - Cx. Postal 146 - 06800 
Embú SP - Tel. 011/494-2433 Pabx - Telex 
011/33234 KMPL - BR - Telegramas Pireicable 
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Até hoje, acontecia o seguinte: as empre- 
sas pequenas compravam microcomputa- 
dores. Às empresas grandes compravam 
computadores ro E as empresas que 
eram grandes demais para um micro ou pe- 
quenas demais para um computador 
grande, compravam um problema. 

Agora, você pode trocar o problema por 
uma solução: o Micrão Cobra 480. 

Aliando o desempenho do processa- 
mento em 16 bits à possibilidade de ser 
usado por até 8 pessoas ao mesmo tempo, 
o Micrão Cobra 480 é uma solução perfeita 
para quem precisa mais que um micro, mas 
não quer pagar o alto preço de uma máquina 
de grande porte. 

8 terminais e 5 linhas de comunica- 
ção síncrona, capacidade de memória de 
até 1Megabyte, até 4 unidades de disco ri- 
gido Winchester de 10 Megabytes, até 2 uni- 
dades de fita de 800/1600, 45 ips, e com im- 

essoras de linha ou seriais, o Micrão Co- 

a 480 tanto pode resolver todo o processa- 
mento de dados de uma empresa de porte 
médio, como dar conta do processamento 
distribuído em grandes empresas. 

E com uma vantagem que nenhum 
grupo de micros oferece: o Micrão 480 pode 
crescer. Como ele é compatível com os 
computadores de maior porte da Cobra, 
amanhã sua empresa pode migrar para 
uma máquina maior, preservando todo o in- 
vestimento que foi feito em software 
e periféricos. 

Váaté a filial Cobra mais próxima e co- 
nheça o Micrão Cobra 480 em detalhes. 

Você vai descobrir um computador com 
as medidas certas em tudo. Até no preço. 


+ 
REA NE ud 
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QUASAR IV: UMA AVENTURA COMPILADA 
















































































1050 XX=X%+1 2 IFXX<(L2STHENSOSSELSEXX=124 

1055 YX=YX+12IFYX(4LTHENLOSDELSEYZ=40 

1060 SET(XZX,YX)INEXTIXINEXTKX 

1065 FORKX=1TO1S1GOSUB12851NX=INT(LONRND(O)+1) 

1070 FORIX=1TONX 

1075 XX=X%+12IFXX<(L2STHENLOSOELSEXX=124 

1080 YX=YX-11IFYX)>2THENSOBSELSEYX=3 

1085 SETCXX,YX)INEXTIXINEXTKX 

1090 FORKX=ÍTO2S 

asa GOSUB12851NX=INT(244RND(0)+1):NZ=NX+XZIIFNXC126THENS LODELSE 
=125 

1100 FORIX=XLTONX 

1405 JX=IX+12AX=POINT(JX, YX)LIFAX=-1THENS130 

1110 IFIXC)XXTHENSS LSELSEJX=IX-1 2 AX=POINTCJX, YX)2IFAX=-STHENS130 

11415 JX=YZ-L2AX=POINTCIX, JX)SIFAX=-1THENS 130 

1120 JX=YX+L2AX=POINTCIX, JX)SIFAX=-STHENS130 

1125 SETCIX,YX) 

1130 NEXTIXINEXTKX 

1135 FORKX=ÍTOIS 

1140 GOSUB1285:NX=INTCLSMRND(O)+1) ENZENXAYXE IFNXC4ZTHENS 14SELSEN 

X=41 

1145 DX=02FORIX=YLTONLIAX=POINTCXX, IX): IFAX=0THENS LSOELSEDX=0:G0 

7011475 

1150 DX=DX+LEJX=IX+1FAX=POINTCXX, JX)PIFAX=-1THENSS7S 

1155 IFDX()1THENS160ELSEJX=1%-12AX=POINTC(XX, JX) 2 IFAX=-1THENSS7S 

1160 JX=X%-L2AXMPOINTCJX, IX): IFAXE-STHENSS7S 

1165 JX=XL+LFAL=POINTCJX, 1X) IFAX=-LTHENS47S 

1170 SET(XX, IX) 

4475 NEXTIXINEXTKX 





1180 FORJX=1TOLO:GOSUB1305:S%=20*GOSUB1290:60SUB1310:5%=40:GOSUB 
12902NEXTJX 

1185 FORKX=1TO4S: 1X=INTC1212RND(0)+3)3 JX=INTC37ARND(O)+3)3SETCIZ 
+ JX) 2 GOSUB 13202 NEXTKX 

1190 PRINTO962,"Modulo de Servico”; FPRINTOSB6,”( QUASAR IV )";aP 
RINT91009, “Energy!” sPRINTOLOLS,EXy 

1195 TX=202FORIX=1 TO20:SX=21-1XIGOSUBIZ9UINEXTIZ 

1200 XX=221Y%=3111X=1242 JX=3ISET(XL, YX)SSETCIX, JXDETXESO 

1205 HX=0:VZ=OFKZ=0ILZ=O 

4240 IFXX)=IXTHENIDISELSEHI=1 

1215 IFXX(=IXTHENI220ELSEHX=-1 

1220 IFYZ)=JXTHENI225ELSEVX=L 

1225 IFYXC(=JXTHENS230ELSEV=—1 

1290 AX=PEEK (14968): IFAXC()16THENIZISELSEKK=-1 

1295 AX=PEEK (14368): LFAX()64THENIZADELSEKK=Í 

1240 AX=PEEK(1434A5 1 IFAXC)4THENSZASELSELX=—S 

1245 AX=PEEK (14344): IFAX()1THENSZS0ELSELZ= 1 

1250 EX=EX-L:PRINTOLOL6,EX;” “,25%=502GOSUB1290: IFEX=OTHENS32S 
1255 RESETCIX, JX)SIX=IXAKKE JL JLALXTAXEPOINTCIX, JX) E TFAX=OTHENIZ 
6DELSEIX=IX-KE JX=JZ-LX 

1260 SETCIX, JX)2 TF JX()34THENI26SELSEIFIX(21THENIZ6SELSEIFIZ)2ZITH 
ENS26SELSEGOTO 1340 

1265 RESETCXK, YX)EXIEXLAHLYL=YLAVXIALEPOINTOXZ, YZ) IFAX=OTHENIZ 
Bo 

4270 IFXX()IXTHENI275ELSEIFYXC) JXTHENI27SELSEGOTOL ISS 

4275 YX=YX-VLIALEPOINTOXX, YX) E IFAX=OTHENSZODELSEYX=Y+VZEXKSXI-H 
XEALTPOINTCXK, YX) 2 IFAX=OTHENI 280ELSEYX=Y%-VZ 

4280 SET(X%,YX)2G0TO1205 

1205 XX=INT(1298RNDC0)+2):YL=INT(I9ARND(O)+2) RETURN 

1290 FORAX=1TOTXIOUT2SS, 2:GOSUB129510UT25S, 17 GOSUB1295:NEXTAXIRE 
TURN 

1295 FORDX=1TOSZINEXTDXERETURN 

1900 FORDX=1T032500:NEXTDX:RETURN 

1305 AS=” “2PRINTO6A?, AS; SPRINTO713,AS;SPRINTOZ77,AS; RETURN 
4310 FORIX=20T024:SETCIX,9S)sNEXTIX 

1315 SET(20,34)1SET(20,33) :SET(21,33):SET(23,33)SET(2A,33)SET( 
24,94) RETURN 

1320 T%=515%=5:GOSUB12907RETURN 

14925 CLS:PRINT“Modulo de Servico sem energia nao pode prosseguir 
“aPRINT 

4390 PRINTTripulacao sem oxigenio...“:PRINT 

1395 PRINT“E” dado como perdido...” :GOSUB1300:G0T01365 

1340 CLSSPRINT"CONGRATULATIONS!“3PRINT 

1345 PRINT“Modulo de Servico acaba de chegar ao deposito de“:PRI 
NT“Cristais de Litium da Federacao nesta galaxia.“:PRINT 

1950 PRINT“TRANSPORTE: Cristais sendo teletransportados...”:GOSU 
B1300:EX=3000:60701365 

1355 CLS:PRINT“SENSORES: Perdido contato com Modulo de Servico”: 
PRINTIPRINT“Missil Klingon destruiu Modulo.“:PRINT 

1960 PRINT“Comunicacoes interrompidas...“:PRINTIGOTOL3IIS 
1365 EX=1MIZEND 

140000 END 





QUASAR/MIX, O JOGO 


Aos que suportaram até esta parte, não se desesperem: a lis- 
tagem 4 é a última e contém o programa principal do jogo. Os 
24 Kb de BASIC são o antepenúltimo obstáculo entre o co- 
mandante da Enterprise e a conquista do espaço (o último são 
os Klingons...). 

O penúltimo obstáculo são as linhas 1, 6001 e 6002 da lis- 
tagem 4, pois é preciso inserir nestas linhas três pequenas ro- 
tinas em linguagem de máquina, de preferência usando-se o 
utilitário Pokodes (MS nº 36) embora seja possível tentar fa- 
zê-lo de outra forma (com o Superzap, POKEs ou CHRS 
()...), com o Pokodes é bem mais fácil (veja o Apêndice A, 
no final do texto). 

A linha 1 é um REM, com 72 códigos de máquina que de- 
vem ser colocados no lugar dos números da linha 1 que servi- 


42 


ram para reservar o espaço de 72 bytes (o REM fica). É impor- 
tante que esta linha seja a primeira do BASIC, pois como tal é 
endereçada por POKE(16548) + 256 * POKE(16549) + 5 na 
linha 45. Observe que o +5 é para endereçar a rotina Z80 após 
os quatro bytes que inicializam cada linha BASIC mais o có- 
digo (token) de REM. 

Os 72 códigos de máquina para a linha 1 são: 205, 127,10, 
203, 124, 40, 4,34, 28, 65, 201, 34,30, 65,219,255,31,31, 
31, 47, 230, 248, 95,58, 57, 65, 254,4, 32, 2, 171,95, 58, 
32, 65, 87, 237, 75, 28, 65, 43, 124, 181,40, 6, 221, 227, 
221, 227, 24, 12,42,30, 65, 122, 7, 7,87,230,3,179,211, 
255,3, 120, 177, 32, 228,123,211,255, 201. 

Nas linhas 6001 e 6002 deve-se empacotar nas variáveis 
strings X$S e YS$ as rotinas Z80 restantes, mas sem apagar as 
aspas normais da string (”). Os números foram colocados para 
reservar o espaço necessário. O endereçamento é feito por 
VARPTR( ) nas linhas subsequentes. 

Os 70 códigos de máquina para a linha 6001 são: 33, 253, 
177, 243, 62, 1,8, 62, 35, 61, 190, 32,2,251,201,126,35, 
86, 94, 29, 14, 10, 6, 225, 21,32, 14, 87, 62, 120, 190, 40, 
6, 8, 238, 3, 211, 255, 8, 122, 86, 29, 32, 15, 95, 62, 120, 
190, 40, 6, 8, 238, 3, 211, 255,8, 123,94, 29, 16, 219,13, 
32,214,61,32,209,35, 24, 193. 

Os 54 códigos para a linha 6002 são: 32, 149, 32, 74, 16, 
79, 8,99, 8, 88, 16, 79, 12, 74, 4, 120, 32, 149, 32, 88, 48, 
99, 16, 120, 32, 177, 32, 111, 16, 118,8, 149,8, 133, 16, 
118, 12, 111, 4, 120, 16, 133, 8, 158, 8, 149, 16, 133, 16, 
118, 64, 149,32,120. 

Após a introdução destes códigos nas linhas 1, 6001 e 
6002, estas linhas não poderão mais ser editadas, para que não 
se perca a informação. Um LIST nestas linhas mostrará uma 
sujeira maluca. Mais uma vez aconselhamos que se use o Po- 
kodes/BAS, mas quem não tem o Pokodes, pode usar o Super- 
zap. E quem não tem o Superzap, utilize CHRS ( ) para X$ 
e YS, e dê POKEs na linha 1 to endereço já explicado) e 
substitua o LPRINT da linha 2645 por GÓSUB6001 (RE- 
TURN): LPRINT. 

Veja em seguida alguns comentários que merecem desta- 
que: 

— Note na linha 9 o LOAD dos módulos compilados com seus 
FILINAMES. A — definição de seus Entry-Points (DEFUSR) 
se dá nas linhas 2734 e 5035 e as chamadas logo em seguida. 

— Muitas vezes é feito o teste IF PEEK(16549) > 80 THEN 
DEFUSR... para saber se está em BASIC Disco ou só em cas- 
sete, isso foi feito para ajudar a quem só tem cassete. Quem tem 
BASIC Disco pode eliminar algumas coisas sempre que encon- 
trar este IF (que está, por exemplo, nas linhas 20, 45, 2734 e 
5035). 

— Em algumas linhas como 130 e 160 é usado o caráter ( ] ) 
que normalmente não entra pelo teclado, utilize CHR$(93), 
concatenando assim as strings para ficar a mesma coisa (ou 
então faça uso do utilitário Pokodes/BAS). 

— Não é necessário posicionar o memory size antes de rodar o 
programa, pois a linha 9 faz isso. 

— Na definição de strings do painel de comando nas linhas 130 
a 160 e 480 a 550, é importante acertar bem o seu tamanho e 
não pular nenhum espaço em branco. 

— As saídas do jogo ocorrem a partir de 2600 e a avaliação é 
feita em 2630, variável N. 

— Não esquecer as conexões de áudio para o som. 


O jogo: instruções e dicas 


A missão da Enterprise é patrulhar a galáxia até esgotar o 
seu tempo, medido em centons, ou até capturar ou destruir 
todos os inimigos da Federação que estão escondidos pelos di- 
versos quadrantes da galáxia. O comandante da nave tem que 
enfrentar todos os Klingons, os Atlantis, os Romulans e os 
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Darthlans e ainda escapar das dificuldades e imprevistos das 
viagens pelas dobras espaciais. 

No nível fácil (6), mais centons são fornecidos para a execu- 
ção da missão, porém mais inimigos são encontrados, o que po- 
de ser mais perigoso. A probabilidade de imprevistos ocor- 
rerem neste nível é menor e a viagem transcorre com mais 
calma, o que é melhor para os iniciantes. 

A galáxia é dividida em 8x8 quadrantes de 8x8 setores 
cada. Os sensores de curta distância (short range sensors) 
mostram no painel principal de controle da Enterprise o 
quadrante atual que a espaçonave se encontra e os 8x8 setores 
do quadrante. A Enterprise é representada por um +, as es- 
trelas por *, uma das bases por O-0 e os inimigos por diver- 
sas formas. É importante observar bem os setores para o cálcu- 
lo da inclinação de tiro (graus) dos mísseis. As coordenadas do 
setor do quadrante, e do quadrante da galáxia que a espaço- 
nave está, são mostradas na parte superior do painel principal 
(e em outros painéis também, para localização). 

Os sensores de longa distância (long range sensors) exibem, 
no centro da tela, as informações sobre o quadrante que a 
Enterprise está e, ao lado, as informações sobre os quadran- 
tes vizinhos. Essa informação vem na forma de três dígitos, 
KYZ, que indicam a presença e o número dos seguintes ele- 
mentos: inimigos, bases e estrelas. 

O computador de bordo sempre armazena as informações 
colhidas pelos sensores de longa distância e sobre o quadrante 
atual, mostrando-as reunidas para permitir o estudo da estra- 
tégia no painel galaxy records. Iniciado o jogo, o que há nos 
quadrantes (menos o atual) da galáxia é desconhecido. 


As bases estelares são poucas, mas se o comandante quiser 
sobreviver é melhor descobrir logo as suas localizações. Há, 
entre os Planos de Emergência, a possibilidade de se tentar 
contato com as bases pelo rádio, buscando assim a localização, 
mas é grande o risco da base ser localizada e destruída pelos 
inimigos se o comandante não souber lidar com os códigos 
secretos de comunicação. E sem base... não há como resistir. 


É bom ficar de olho na energia disponível e na energia do 
campo de proteção (shields). Os shields protegem a espaço- 
nave dos phasers inimigos, mas também atraem os seus mís- 
seis. Os tiros de phasers distribuem a energia total do tiro pelas 
espaçonaves inimigas presentes no atual quadrante, atingindo 
com maior intensidade as naves mais próximas e que não estão 
perto de uma estrela, protegidas. Cuidado para não usar mais 
energia do que há disponível nem esgotar as reservas logo no 
início da jornada, pois a recarga geralmente é difícil. 

As espaçonaves inimigas contidas em um quadrante não 
ficam paradas, nem são burras: elas se aproximam para atirar 
e se afastam quando estão em apuros, e muitas vezes se prote- 
gem próximo a uma estrela, que absorve os mísseis ou os ti- 
ros de phaser da Enterprise. E muito cuidado se os danos são 
elevados ou os níveis de energia total ou dos shields ficarem 
baixos, pois eles têm os seus sensores e se aproximam em for- 
mação cerrada (quando há mais de um no quadrante), aprovei- 
tando qualquer oportunidade para tentar destruir a Enterprise. 

Não hesite em fugir se estiver na pior, mas atenção com o 
quadrante vizinho: pode ser fatal. Um bom comandante pre- 
cisa sempre saber se localizar e estar pronto para uma ação 
rápida e correta. Um tiro de phaser destrói um inimigo quan- 
do a energia com que este foi atingido é superior à sua energia 
total disponível. Esta energia só pode ser observada pelos sen- 
sores da Enterprise quando um phaser atinge o inimigo. Pode- 
se usar também o equipamento de emergência, mas gasta-se 
mais energia e é bem complicado. 

Os mísseis são atraídos pelo campo de proteção. Isso é vá- 
lido para os dois lados, mas nem sempre acertam o alvo: nos 
limites do quadrante ou perto de uma estrela é bastante difí- 
cil acertar ou ser acertado. Cada tiro de phaser que atinge a 
Enterprise diminui a energia de seu campo de proteção da 
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quantidade de energia com que esta foi atingida. Alarmes de 
emergência não devem ser negligenciados, pois geralmente in- 
dicam que o fim está próximo. 

Se uma seção é danificada, não se pode usá-la, Para repará- 
la são necessários alguns centons, mas isso não deve ser feito 
durante uma batalha, porque os Klingons-não vão ficar espe- 
rando.. A máxima velocidade que os motores danificados atin- 
gem é de 0.2 Warps, sendo que o normal é 9 Warps. A travessia 
de um quadrante a outro pelas dobras espaciais exige uma velo- 
cidade de impulsão mínima proporcional à distância entre a 
Enterprise e o limite do quadrante na direção desejada. É pos- 
sível saltar vários quadrantes de uma vez, adicionando-se 1 
Warp por quadrante, mas cautela com o consumo de energia. 


Imprevistos e situações difíceis podem ocorrer ao se usar as 
dobras espaciais. Deformações no espaço podem conduzir a 
Enterprise para fora da galáxia a grandes veloçidades, e aí é 
preciso manobrar com rapidez para evitar que a énergia acabe 
e não sobre energia suficiente para a volta. Campos de minas 
Klingon e tempestades muito estranhas podem Ser encontra- 
das no hiperespaço, e ambas conduzem ao além. 


Abaixo do nível 3 é muito difícil sobreviver às minas hi- 
perespaciais. Para conseguir energia, pode-se ir até uma base, 
procurar cristais de litium na zona neutra com o módulo 
de serviço, ou então arriscar a vida em órbita de um planeta de 
anti-matéria. A base é o mais fácil, mas nem sempre estará dis- 
ponível. Para chegar até o depósito de cristais dg litium é pre- 
ciso superar o míssel cruise Klingon, que é lançado de uma 
rampa próxima ao depósito assim que o módulo manobrado 
manualmente entra na zona neutra bo número de módulos de 
serviço é limitado). E o planeta de anti-matéria.,. é melhor dei- 
xar para usar só em último caso, mas pára quem precisar, é 
aconselhável ficar em órbita apenas o tempo necessário e não 
forçar a sorte (este planeta e as minas hiperespaçiais costu- 
mam ser o cemitério do jogo). 

Na hora de atravessar o campo de Quasar IV, que é resul- 
tante de explosões de estrelas super-novas, lembre-se que os 
controles manuais são iguais aos do avião: para baixo sobe e 
para cima desce. Só se consegue a travenna. pelo setor central 
do campo e sempre acompanhando gs 1 de. pras. Cada 
partícula atômica que atinge a Enterprise é uma tela de prote- 
ção a menos. 

A Enterprise acopla-se a uma base apenas encostando nes- 
ta (atenção: é para encostar, uma colisão pode explodir tudo!), 
e automaticamente será feita a recarga e q manutenção. Ao 
usar os motores para se movimentar, lembre-sg-da localização 
das estrelas! à 

Os radares quadradar e intergalático são emergências para o 
caso de navegação às cegas, e são geralmente usados durante 
combates em que foram destruídos os sensores de curta ou 
longa distância. Nesses casos, antes de fugir ainda é possível 
sobreviver usando os antiquados radares, no radar, porém, 
não há a indicação do que são os objetos dele s, exceto 
a própria espaçonave. ' 

Para fugir de um quadrante, numa situação de desespero, 
resta o black-hole ou buraco negro, pois pode-se chegar ao 
hiperespaço mergulhando em um blacke-hole, sea espaçonave 
conseguir ser controlada ng travessia do Túnel de Plasma. É 
indeterminado o quadrante resultante, havendo ainda o peri- 
go adicional de um afastamento excessivo da galáxia. 

A vida do inimigo também tem valor: prisioneiros fazem 
mais pontos na avaliação do que defuntos. Captura-se uma es- 
os inimiga com a redução de sua enesgia ao mínimo 


quase zero) e depois com a aproximação, Só então po- 
derá haver a rendição. use SA 
Por fim, alguns avisos aos futuros tes: a auto des- 


comandante 
truição é, no mínimo, desaconselhável, porque não há como 
desistir no meio; para descansar, peça a. instrução sobre os co- 
mandos; cada manobra efetuada consome engrgia e tempo, por 


str 4 


fa) 


QUASAR IV: UMA AVENTURA COMPILADA 





isso é fundamental planejar; a avaliação máxima é 100, mas 
quem chegar vivo ao final dos tempos já é um herói, e quem 
passar dos 50 pontos é um verdadeiro monstro. Experimente. 
e Apêndice A: Pokodes 

O utilitário Pokodes/BAS (publicado em MS nº 36) tem 
que ser ajustado para sincronizar os comandos DATA contidos 
nele, no caso do programa co-residente também utilizar co- 
mandos DATA. Isto é resolvido com a inclusão de duas linhas 
(mas não esqueça de retirar da linha 65010 o CLEAR e o 
RESTART): 


65005 CLEAR:DATASINCRO 
65006 READIS:IFIS<>"SINCRO"THEN65006 


e Apêndice B: TRSDOS 

(0) giro piler/BAS e o Pokodes/BAS rodam normalmente em 
TRSDOS. pe a linha 9 do Quasar/MIX, onde estão os co- 
mandos que carregam os módulos Z80 escritos para o NEW- 
DOS, é que têm que mudar para: CMD“L”, “QUASI/USR” 
e CMD"L”, “QUASII/USR”. E quem só tem cassete, vai ter 
que continuar sofrendo, pois comandos como DEFUSR, 
DEFFN e o carregamento acima citado terão que ser refeitos. 
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Listagem 4 - Quasar/MIX 


1 REM12945670901234567890123456789012345678901234567890123456789 

0123456789012 

9 CLSEPRINTYQUASAR IV LOAD GAME. “ZPOKEL6561,07POKELSS62,2122PRIN 

TECLEAR4DO:PRINT“MEMORY SIZE SET ATI“;25682122:PRINT/Load machine 
language... “?CHD/LOAD QUASI/USR”ECHD“LOAD QUASIT/USR” "Neudos 

10 RANDOMIRESTORESDEFINTI-H,S,Q,Z260SUB1810:60SUB6001 :G0T0100 

20 TA!=VARPTR(SSS)FILI=PEEKCIAI+L) E THI=PEEKCIAL+2) E TAI=IHIN2S6+T 

LISTAI=TAL TAL DI2767) 465536: IFPEEK (16549) BOTHENDEFUSR=IA! SRETU 

RNELSEPOKEL 4526, IL!3POKELGS27, IH! SRETURN 

30 SS$=SES:GOSUBZOZTA!=IA!+10:IBI=LA!+2EPOKETA!, 29840/HNEPOKEIB 

, 29840/HX2U=USR (DR (MX-HN)/2) RETURN 

40 898=5T$2GOSUB20:FORI J=1T022:FORJI=1TOZ:U=USR(JINZO) ENEXTJI, TJ 

GOSUBZOZRETURN 

AS SI=2564PEEK (16549) +PEEK (14548) +5:51=5| +(51)32767) n655I65POKEL 

4672 ,5: IFPEEK (16549) ) BOTHENDEFUSR=S | SRETURNELSESH!=FIX(S1/256):5 

LI=S|-2568SH [3 POKE 16526, SL | 5POKE46527,SH! RETURN 

SO FU=SORC(KICTI-S1DL2+(K2(T)-52)E2) RETURN 

60 MN=S60SHX=AM:DR=.SEFORI=1T01+X/100:005UB30: NEXTISRETURN 

70 IFIX=1THENRETURN ELSET=T-.22PRINTAZ9B, ; SPRINTUSINGCAA.W”;T; ER 

ETURN 

80 FORIK=1TO2Z302NEXTIK RETURN 

90 FORI=1TO230:U=USRCINT(1/2)+256) :NEXTISRETURN 

100 DIMDSCB),K$C3),08(3),DCB),KICTI,K2CTI ,KICT) 47,7), 0C7,7),KC 














(3,3)2W$=” RAZOAVELHICEPÍ=.1 
140 CLSIPRINTIZBO, CG UA S AR IVCIPRINTOPÕO, “By Zorro”; TABCS7) 
“1984 OSUBZ0:60SUB90:60T0130 






T5:GOSUBZ0sFORIZ=1T04:PRINTOLJ, STRINGS (LENCES), 32) ps U=t) 
SRC50)+USR (70) 2PRINTOIJ,ES; 2FORI9=1TOLOZNEXTIS, 7 25RETURN 
130 08(0)=" . [+3 =» "508C1)=” , [+]=-)0-0 = “sQ8(a)=r , E+ 








1=-18=0 * “208(9)=" . [+)K-=50C » “35D$C0)="UARP ENGINES “308(1)= 
“SHORT RANGE SENSORS “ 
440 Ji="=":D$(2)="LONG RANGE SENSORS “:D$(3)="PHASERS “208="ONLY 





GOT" :ENS=" ENTERPRISE” 
150 D$(4)=“PHOTON HISSILES 
sy” 

160 H8=L . JosES= 
D$(7)="DAMAGE CONTROL 
170 CLSSPRINTAIZO, “SELECAO DO MELHOR NIVEL ...5/3PRINTEPRINTOS — 

O Maximo. Ninguem sobrevive, Prometeus.”:PRINT"Z - Apenas para 
super-homens, Hercules.“:PRINT"3 — Para predest inados a herois 
Zorro.” 

180 PRINTOA — Impossivel, quase. Napoleso.“:PRINT“S - Aos loucos 
» tudo e'possivel....Hitler .“:PRINT"6 - Para iniciantes, uma rap 
ida destruicao. Dom Pedro.” 

190 PRINTEPRINT: INPUTSUA ESCOLHAS; LUS IFLUC LORLV)6THENZBODELSEKS 
=300+100nL VE ZL=7-LUZIC=LUMA 
200 5: OSUB20=FOR IW=1 TO3:FORIK=54TOSP3U=USR (226+IK) ENEXTIK 
3FORTK=69TOSASTEP-1 2 1I=1ISR(226+IK):NEXTIK3FORIK=1TOZO:NEXTIKINEXT 
14 
210 CLS:KS(0)="Klingons “zK$(1)="Romulans “3K$(2)="Darthlans “ 
=K$(3)="Atlantis “SPRINTOUN IVERSO em FORMACAO 


"ED$(5)="GALACTIC RECORDS “:68=“ENER 





EFTCIDS(4)=“SHIELDS “:D$(B)="EMERGENCY "E 


































E) ED=40001GOSUBS60101=X102uYIX=BIZ=L1Xi=.207S1Yin6.281P4m.41X2 






2Ce100!M= LOL POSUIBP=DLKPmB PTI SIT, PELE LNSODIK ADO 
ao Vi=EOIGOBUS 150 1 FORI=0TO7 1 FOR J=0707 IU=USR (330+108(J-1))4K=DIN 
=RND(O) !IFN)XATHENZ7O 

250 N=Na641K=(NCY1)-Z 

260 KmK+(NCXD)+NCYZ)+CNC.2B)+(NC LDB) + (NC .03)+CNC OL) EKPNKO-KIPR 
INTB43+RND( 958), “m” 
270 B=(RND(0))T2)189: 
280 T=KP+(LU-1)m10+.D1TTeT 

290 TS=“MISSIL “1IFK9)T THENT=KS 

300 KO=k9:1FB9CZTHENGOSUBSGOLA(X, Y) =X, Y)-PONBO=Z 

= 01S=01 16070330 








GCI, J)=kNC+BUW-INTCRND(O) 0X+Z) NEXT, I 



















330 B=INTCN/PO-K“PO) 1GOSUBS601S1=X152=Y 

340 GOSUB451FORI=0TOZ1FORJ=OTOZISCI, J)=ZINEXTJ, 11S(81,82)=24FORI 

=40TOLSTEP-4 1U=USR(-200) EUmUSR CT) INEXTI 

350 FORI=0TOZ2K3(1)=D1X=BIU=USR (-80) IUmUSR(2) 1 IFICKGOSUBS9O:S(X, 

Y)=32K3C1)=RND (0) » 1000 

360 GOSUB430:NEXTEI=S1 IFB VOTHENGOSUBS9OIS(X, Y)=4 

370 IFIDOTHENGOSUBS901SCX, Y)=51I=I-Z160T0370 

380, TFT COTHENZAODELSE TF SOONRND(O) (=B-LUTHENTFRNO(40) )STHENLOO0OE 

L 

390 GOSUB780: IFA=DANDRND (O) (P4THENGOSUB 6401 G0SUB8O 

400 IFECOTHENPRINTOS+ JS; E1GOTO2610 

440 1eZ4H=02G0SUBS70!IFD(I) OTHENPRINTE IX=1 IBOTOPLOELSEIX=0 

420 S9$=SCS1GOSUB20rU=USR (270) 

430 T=T+.04 1GOSUB1970r1J=701GOSUB1 4201 Q=ABSCINT((Q2NB+01)/16))4 

IFIQ)3THENIG=O 

440 FORI=OTOZIFOR J=OTO74PRINTOLPS+In64+30J,MIDSCASCIG), IMSCI, J)- 

2,3), *NEXTJ 

450 ONIGOTO490, 480,520,530,500,540,540 

460 PRINTO222,”CONDITION “50 

470 NEXTISBOTOP4O 

480 PRINTRISO,OS(6)+"  “+HSj1PRINTOIGS, p PRINTUSINGCHMNH.NO GEL, 

6070470 

490 PRINTAZES, “CENTONS 

0TO470 

SO0 PRINTOSAZ, “STARBASES “+HSy 1PRINTOSSS, p PRINTUSING“HH“ 89 160 

To470 

Sia, MINTAGOA SETAS “+HSp IPRINTO6A9,  EPRINTUSINGWN” KA p EGO 
4 

520 PRINTOALA,08+” 

70470 

530 PRINTO47O, MISSILES “+HSytPRINTOA9L 

0470 

540 PRINTO67O,KS(10)+HS; IPRINTAGBI, ; EPRINTUSINGOMW”4K9p EGOTO47O 

SSO PRINT” “4DSC0)+"SHUT DOWN”; CHRS (30) GOSUBBOSD(O) =DC0)+TILRE 

TURN 

560 X=INTCRND(0)48) 2 Y=INTCRND(O) 06) RETURN 

570 EsE-HIES=EL-HITFECELTHENES=E 

580 RETURN 

590 GOSUBSG0: IFSCX,Y))ZTHENSDO 

400 RETURN 

640 FORI=0TOZ4LFKICI)OTHENSCKS CT), K2CT) )=ZGOSUBS9OASCX, Y)=3160 

SUB630 

620 NEXTIRETURN 

630 KLCI)=X:K2(1)=V RETURN 

640 IFK(ZORCS="DOCKED”THENRETURN 

650 16=0 

660 FORI=OTOZ!IFKICI) C=DORKIZANDRND(O)( . ISTHENNEXTIRETURN 

670 1FIG=4THENZOO 

680 1X=1216=42CLS4PRINTCQUADRANT” 1QL+74"=" 1 02+7) 1PRINTOAS, “SECTO 

RºpS14750-" 45267, 21 J=252ES="A LA R MºIGOSUBL20PRINTEPRINTEPRIN 

T“CONDITION “;C$; 

690 PRINT” SENSORS DETECTIONI”4KyKSCIQ) EPRINTENS+” “+08+” LEVE 

LSt SHIELDS:“,EL;” TOTALI“3E 

700 IFRNDCO)(PATHENIY=S EPRINTKSCIG)+” “+TSp 2H=RNDCO) MES MN=1201M 

X=590:DR=1 :GOSUB301G0TO730ELSEIY=0 

740 H=KICT)MPANRNDCO) KICT)=KICT)-HITOSUBSO: SSS=SNS E GOSUBZO:U=US 

RC100) :H=H/(FULP4) EGOSUBSZO 

720 ES=ENS+” FROM"IN=Ei2EI=7260SUB750s IFH)ES/2THENH=150 

730 Al=ATA=iEI=[3 IFHD149THENGOSUB9OOELSEIF IY=1 THENPRINT” PERDID 

o 

740 A=AStI=E3INEXT3GOSUBBOSRETURN 

750 PRINTH; “ACERTOU “,ES,” SECTORCGKACID4Z9”,pKBCID+Zy 

760 IFESC(DANDEI=ZTHENZ6LO 

770 PRINT"Crestam”;Ny)“3RETURN 

780 FORI=51-Z1051+72FORJ=52-ZT052+Z1 IFICOORI)70RJCOORJ)7THENE2O 

790 IFSCI, J)=4ANDCS="DOCKED“THENSSO 

800 IFK)OANDSCI, J)=4ANDRND(O) )PATHENPRINTOESA, “m UNDOCKABLE “716 

osUBSO:GoTOB2O 

840 IFS(I, J)=4THENCS=“DOCKED”:TaT-T31E1=04PRINTTAB(28)C$:Mi=E01G 

oToBsO 

820 NEXTJ,1:IFK>OTHENCS=“ RED “1RETURN 

830 FORI=0TOS?IFO(I))DORECEONP 1 THENCS=”YELLOW” RETURN 

B4Q NEXT:CS="GREEN “IRETURN 

850 E=EO:P=PO 

B60 IK=12FORI=0T0G1IFO(I)<=OTHENA9O 

870 D(I)=D(I)-Wi2IFD(I)C=OTHENIFIK=1 THENCLS: Ik=01FORI7=0701272PR 

INT9128+17,CHR$C(45); ENEXTIZEPRINTOZIZ,”  (REPAIR TIME)  “2PRIN 

TELSEGROELSES9O 

B80 PRINTOSCID;” ...... 0 0K.”2D(T)=03GOSUBBO 

B90 NEXTIRETURN 

900 I=INTCRND(0)87)2D(T)=DCI)+INTC(3-RNDCO)“2) PD) /PO 

940 PRINT” uum “+DSCT)“DAMAGED “;CHR$(30)MN=1702MX=1320:DR=.31 

FORIK=1T04:GOSUB30:NEXTIK IFD(1) )DANDA()2THENIX=1 

920 IFA=ZTHENRETURN 

930 IFA)ZANDRND(O)(PATHENGOSUB440 

940 IFK)DANDA)2THENGOSUBS10 

950 IFTCOTHENZ600 

960 IFESC1ODORECIOOORE-ES (200THENGOSUB2130 

970 PRINTOBIZ,CHRSCIL); 

980 CT=K5tAS=""2IFCS=" RED “THENHN=1301NX=8201DR=1 1GOSUB301GOSU 

830:G0SUB70ELSEIFCS="YELLOW"THENHN=120:HX=2601DR=1 1GOSUB30:GOSUB 

30: GOSUB70ELSEGOSUB 40 

990 PRINTOBIZ, “Comando 7”; 1AS=INKEYSIIFAS=""THENCT=CT-1 4 IFCT=0TH 

ENS 420ELSEPIDELSEA=ASC (AS) -4BIPRINTAs 

1000 IFA)SORACOTHENIFRND( 10) )STHENSOOOELSEL0000 

4010 1X=0: IFA=OTHENZODO 

1020 ONAGOTOL04O, 380, 1440, 1480,1040,1480,4770,1740,2330 




















“+H$; 1PRINTOZDO, p EPRINTUSINGOHH MH, To EO 






“+HSp SPRINTOAZS, | EPRINTUSINO“MMHH Hs Ep 200 






PRINTUSINGHH” Pp EGOT 









































































MICRO SISTEMAS, março/85 


1030 
1040 
1050 
1060 
1070 
1080 
AZ0EL! 
1090 
tr 
1400 
50160 
1110 
OsPRI 
1120 
4190 
1130 
1140 
1150 
11460 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
Y 
1240 
440 
1250 


Borosso 

IFD(4)/0THENPRINT” “+T8+” TUBES BLOCKED”1GOSUBBO1GOTOP40 
N=454 IFP(ZTHENPRINTO NO “+T5+"E”+FS1GOSUBBO!GOTOP4O 
IFA=STHENPRINTO  “+D$(4)+"SYSTEM ON C3”p 
IFA=1THENPRINTOBSS, DSCO) p 

PRINTOS96, CHRS(30) p E INPUT"Cur so” pCrCmi+C/451 IFC(ZORC)9THENS 
SEIFC=9THENC=O 
IFA=STHENP=P-ZIMN=1202MX=4607DR=2100SUBIOIPRINTO9 LL, TRACKI 
goTO1220 

PRINTO9LP, | FINPUTUARP” jUIPRINTOBO6, pt IFWC=0ORW)9THENGOSUBS 
TOL420 

IFW). 2ANDD(0) OTHENI=01GOSUB9101PRINTOPAS, “Max=0.2”, 100SUBB 
NTABPE, CHR$(30) p 160TOL100 

BOSUR 440 GOSUBS60 !Wi=INTCRND(O) 240) 4 IFWS)20RCS=“DOCKED”“THEN 


ONWLGOTO1 150, 1160 

QL=28X-P1G2=28Y-P GOSUB21401G0TO34O 
GOSUB2210:GOSUBP00:G0TOL 190 
FORI=XTOS2 IFD(I) OTHENS18O 
NEXTEFORI=0TOXIIFD(I)(=OTHENNEXTEGOTOL 190 
D(T)=D:PRINT”  SPOCK FIXED “9DSCI),”. “y2GOSUBBO 
WL=W/POSTFWS)mP4THENWL=Z 

GOSUBB60:N=INT(WuB) sExE-TINNCZIS(SA,82)=Z 
58$=ST5:GOSUB20:FOR 1 J=64TOASTEPW-10?UMUSR (IJ) INEXTIS 
Yi=S1+T3:X1=82+T37 IFTCOTHENZ600 

W=(C-7)0. 7853981 X=COS(Y)EY=-SINCY) EFORImZTONST=T-.OLsvimyi+ 


XI=KI4XEYZ=INTOYIDEXD=INTOXL) E TFX2COORX2)7ORY2CDORY2)7THENS 


IFASSTHENPRINTYZ475",“;X2+Z4” Cp RTFOCL) VOTHENKU=L002:60TO12 


60ELSEIZ=PEEK(16417)219=PEEK (1646) RKUZ(XD+7) 0341284648 (Y2HL) PR 


INTOK 
1260 
1270 
1280 
1290 
1300 
1310 


1390 


U,” “ACHRSCL4O)+” “;SPOKELGALT,I7EPOKESHALO, IP 
IFS(Y2,X2)=Z0RA=SANDRND(O)(. LSTHENNEXT 560701380 
IFA=ZTHENPRINT"BLOCKEO BY “; 

ONS(Y2,X2)-360T01960, 1330 
PRINTKS(IQ); 1 IFA=ZTHENGOSUB900:60TOL3I70 

FORI=0T073 IFY2()K4CI)THENLIZO 

IFX2=K2C1) THENKICD =0 

NEXTIK=K-Z2KP=KP-7260T04390 

PRINTO STAR“ EIFASSTHENPRINT” ABSORBED “+T$p E GOSUBBOEGOTO 


TFUIRND (0) sPO/2THENGOSUBS602GOTOL140 
GOSUBSSO:G0TO4970 
PRINTOSTARBASE”; E IFA=STHENE=2:60TO1I90FLSEIFW) 1 THENZ610 
Y2=INTCYA-Y)EX2SENTOXA-O 
S1=Y2:52=X215(51,52)=2:60SUB610:A=22:60T0380 

17=PEEK (16417): 19=PEEK (16416) 255%=STS:GOSUBZOsFORIK=1 TOZIPR 


INTOKU, MIDSCQLCTA) , S(Y2,X2)43-2,3), SUSUSR CO) PRINTOKU, STRINGSCI, 


191) 


sUSUSR (0) ENEXTIKIPOKEL6447, 172POKEL6416, IPIPRINT” DESTROYED 


“ pRUMUSR (70) +USR 50) 


1400 
1410 
1420 
1430 
o 

1440 
4450 
1460 
1470 
1480 
1490 


IFA=2THENH=0:PRINTUSSB9=09-7 
S(YP,X2)=720(01,02)=KE 100 BRPO+SELFKPCZTHENZAIO 

GOSUB440: LFECOTHENADO 

GOSUNZ80: IFA=STHENIBOELSE IFD (1) OTHENTX=1260TOPADELSEGOTOPA 


IFA=STHENPRINT“FALHOUS; EGOSUBBO:GOTO1 420 
TeT=T2203=INTCQLAUEYS(S14TI)/0)02=INTCQDHUNX+CS24TI)/8) 
IFWS CATHENUL=T2:GOSUBB4O 

QL=01-(01C0)+(01)7) 202=02-(02(0)+ (0297) 26OTOIO 

1=33 [FD CI)OTHENSLO 

PRINTTARC22) 3 INPUTCPHASERS READY: Units to Fire“;XIFX(=0T 


HENSaZO 


1500 
1510 
1520 
1530 
1540 


IFX)CE-E4) THENPR INTOS ;E-ES 26OTOSAPO 

CLS2PRINTO PHASERS SYSTEM FIRED ...“:PRINTEGOSUBSO 
EsE-XIY=KEFORT=0T072 LFKICT) C=0THENS 00 
TFDCI)DOTHENX=XSRND (O) 

GOSUBSO E MNa $ 40: MX=230:DR=2260SUBIOH=X/ CY 8 CFULPA))EKICDI=KI 


CD -HEEI=DSESSKSCIQS ATUINSKICT) 


1550 


COSUB750: LFKICT) C=OTHENESSKSCTO)+” DESTROYED|“IMN=240:MX=1 


250:DR=1 *GOSUBIO:G0TO4590 


1560 
1570 


IFK)ZORKICT)DE1/1000RRND (O) <PATHENS600 
KICI)=0:TFRNDCO) CTATHENES=KSCTG)+” EXPLODED” 3 MN=1205HX=1300 


sDR=2:60S5UB30:60T01590 


1580 


ES=K$C1G)+” SURRENDERS" 2 MN=1502MX=380:DR=2:GOSUB30:T=T-T3:K 


Ask4s7 


1590 
o 

1400 
1610 
1620 


PRINTESEK=K=7EK9=K9-ZESCKICT),K2CT))=Z20(0S,02)=001,02)-10 
NEXTEPRINTEIVK9CZTHENDSZO 

GOSUBRO: TFKIOTHENS42DELSEI8O 

T=T=.042PRINTOLI,DSCID; “AT QUADRANTO;QL+757,";02+7; E IFI=ATH 


ENIX=0 


1430 
1640 
1650 


RETURN 
1=2EVFDCI) OTHENDIOELSEIX=O 
CLS:558=SC$:GOSUBZ0:U=USR (260)! L J=64260SUB1620:PRINTEIPRINTE 


PRINTIPRINTIFORI=QS-ZTOQL+ZEFORJ=02-ZT002+Z2PRINTO “7 


1660 
1470 
1680 
1490 
c4 + 


PRINTS 4 


1700 
1710 
20 

1720 
1730 


IFICDORI)70RJCOOR.ID7THENPRINTO UM; 260704720 

GCI, JI=ABSCQCI,.1))260TOS710 

[=53IFOCI)OTHEND£O 
CLStIJ=642PRINTIGOSUB1420:55$=ST$:GOSUB202FORIK=0TOÍ22U=USR 
SR (6) *USR CL) NEXTIK EPRINTEPRINTEGOSUB2420:PRINTEFORI=0TOZ: 
“1 3FOR J=0TO7 SUSUSR CCT Ta CJAL DD EPRINTO 25 

IFQCI, J) COTHENPRINTO mea”; 3 GOTOL720 

ES=STRSCOCI, J)) FES=“00“+MIDSCES, 2) 5PRINTRIGHTSCES, 3); 5G0SUB 


NEXTISPRINTENEXTI 
1FA=ITHENFOR I=0T07 :G0TO450:NEXTI :GOSUBBO:GOTOPI0ELSEGOSUBBO 


:1X=136070930 
1740 [=72CL5:1 J=64:60SUB1620:PRINTEMN=S 40:MX=9402DR=1:GOSUB30:FO 
RI=0T04:PRINTDS(T); TAB(24);-D(I) :NEXTEPRINTOLAST CENTONS”; TAB(21 


dat: 
1750 
ROS” 
1740 
4770 
1780 
o 

1790 
+800 
1810 
1820 
1830 


IFK>OTHEN9I0 
PRINTOINIMIGOS"+ES; TAB(21);K93PRINTE INPUT-CENTONS para REPA 
MS TFÚS COTHENWA=0: TFRND(10) (STHENSOOOEL SE 10000 
T=T-Wi:GOSUBAGO: IFK=0THENIX=1 260TO930ELSEI8O 

I=6º IFO(I))OTHENDSO 

INPUT UNITS TO SHIELDS“;Nº IFNJE-ELTHENPRINTOS;E 36070178 


E4=EL+NETFESCOTHENES=O 
PRINTDS(6)+J$;E 1; EGOSUBRO: IFK=OTHENIGOEL SF IX=1 :G0TO9I0 
SES="CIGTS="rISCS= E SNS="CECR$=" GRSA 
FORI=1TOIO:READJISES=SES+CHRS (.J) ENEXTI 

DATAZOS, 127,10,62,1,211,255,297,95,230,255,246,0,87,71,16,2 


MICRO SISTEMAS, março/85 


54,62,2,211,255,66,16,254,43,124,181,32,230,201 

1840 FORI=1TOSOSREADJISTS=STS+CHRS CJ) INEXTI 

1850 DATAZOS, 127,10,125,254,255,40,38,79,46,160,65,58,61,64,238, 

2,50,61,64,211,255,16,252,45,125,103,32,238,180,200,68,197,205,2 

27,3,193,225,183,192,126,95,229,96,24,218,68,24,247,32 

1860 FORI=1TO3OFREADJISCS=SCS+CHRS(J)INEXTI 

1870 DATAZOS, 127,10,62,1,14,255,12,237,91,61,64,69,47,290,3,183, 

241,255,13,40,4,16,246,24,242,37,32,241,201 

1880 FORI=1TOZSIREAD.J!SNS=SNS+CHRS()) ENEXTI 

1890 DATAZOS, 127,10,62,1,211,255,297,95,87,71,16,254,62,2,211,25 

5,66,16,254,43,124,181,32,294,201 

1900" FORI=4TO20:REÁDJICRSECRSICHRS CJ) INEXTI 

4910 DATAZOS, 127,10,1,255,63,125,2,11,120,254,59,32,248,121,254, 

255,32,243,201 

1920 DIMDDS(9):FORIJ=OTO9IREADDOSC1.J) INEXTIJ 

1930 DATACOMMANDS , ENGINES ,S.SENSORS,L.SENSORS,PHASERS ,MISSI 

LES GALAXY ,SHIELDS ,DAMAGE EMERGENCY 

1940 FORI=1TO29:READJIGRS=ORS+CHRS(J) ENEXTI 

1950 DATA33,0,60, 126,254,92,92,4,54,191,24,10,209,127,40,6,47,23 

0,63,198,128,119,95,62,64,188,32,231,201 

1960 RETURN 

1970 CLSIFORI J=0T0S 12PRINTOLJNSA, STRINGS (64, CHR$(194)) ENEXTIS 

4980 FORIJ=1TOBSIFD(IJ-4))OTHENPRINTOLL3+6481J,” a “5DOSCI) 
vINEXTIJ ELSEPRINTOS 1341 J464, 1 JF DDSCIJ);” “pENEXTIJSPRINTOGOS, 

9 “4DOS(9);” “saPRINTASSI,” O “sDDSCO); 

1990 RETURN 

2000 CLS:PRINTTAB(16)“am COMMAND CHOICES mu” 

2010 PRINT”O HELP: Comandos e Dic 

2020 PRINT“1 Navegacao tem direcao (OTO360 graus) & WARP velocid 
ade.” 

2030 PRINT“2 Short Range Sensor mostra o conteudo atual do quadr 
ante.” 

2040 PRINT“3 Long Range Sensor detecta 
vizinhos 

2050 PRINT“A Phasers, sistema de ataque distribuido.” 

2060 PRINT"S Photon Missiles, sistema de ataque dirigido. 

2070 PRINT“6 Galactic Records atualiza imagem da galaxi 

2080 PRINT“? Shields de protecao. (Cuidado: Os campos de proteca 

o atr eis ini “ 

2090 PRINT"B Danos e sistema de Reparos.” 

2100 PRINT"? Chamadas de EMERGENCIA. (Na pior...).” 

2140 55$=STS:GOSUB20sPRINTAP6O, “HIT. ..”; HU=USR (100) IFINKEYS= 

HEN2110ELSEIGO 

2120 FORIK=4TO32STEPALPRINTTABCIK+S); (TK)/45 ENEXTIKERETURN 

2430 PRINTOBI2, “TAKE CARE! LOW “508,” LEVELS.”;CHR$(30) p tHN=170 
2HX=1920:DR=2:G0SUB 30: RETURN 

2140 GOSUBZI0O:PRINTIGO,“ * SPACE UARP x “;SPRINTOL92,"D A NG E 
R 7 “sENS;” GETTING OUT OF GALAXY. 

2150 PRINTOIZO, “NEU GALAXY QUADRANTE “;01+247,“,a2+2 

2160 PRINTO4A4B, “POTENCIAL ENERGY DANGER LEVELS?” y 

2170 J=RND(26)+64:PRINTAS76,ENS;” MUST REVERSE “;D$CO) 

2480 PRINTAS76, “PRESS URGENTLY “;CHR$(J);CHR$(30) !BOSUB2I2OFIFAS 
COCHR$(J) THENZ200 

2190 PRINTUARP REVERSED":SSS=STS1GOSUB2OLFORIK=24TOBSTEP-22U=US 

RCIK) ENEXTIK RETURN 

2200 Q1=01-7202=02-21T=T-PLLIFTC=0THENZ6O0ELSE2150 

2240 GOSUB2I0O:SSS=CR$1GOSUBZO: U=USR (45) +USR (42) HUSR (46) 

2220 PRINTO74,“D A NG E Rº;TAB(9A);” » ION STORM 4 “ 

2230 PRINTOL92,“ANTI-MATTER GENERATOR OVERLOAD”; TAB (40) 4084” LEU 
EL DECREASING” 

2240 PRINTRIZO, "TOTAL “sOS;Es” SHIELDSE“,EL 

2250 J=RND(26)464:PRINTO4MB, ENS,” MUST DOWN GENERATORS: PRESS “” 
sCHRSCJ) 

2260 GOSUB2I201PRINTAMO, CHR$(30) 

2270 IFAS=CHR$(.J) THENPRINT“GENERATORS CONTROLED” RETURN 

2280 EsE-S0+SQMEXP(-T): IFEC=0THENZ6LDELSEIFE (ES THENE 1 =E 

2290 55$=GR$:GOSUB20:FOR L=1 104 U=USR (0) E FORIK=4 TOLO:NEXTIK EU=USR 
(0)2FORIK=1TOSOSNEXTIKENEXTISGOTOZ240 

2300 FORIK=1T06155$=CR$:GOSUBZO: U=ISR (32) :5S$=STS 1 BOSUB2O: U=USR ( 
Ikr4)355$=CR$ !GOSUB2O :U=USR (RND (64) +127) 3558=STSGOSUBZOSU=USR CI 
Kw4+7)2NEXTIK 

2310 RETURN 

2920 FORIK=1TOSOO:AS=INKEYS: IFAS=CHR$ CJ) THENRETURNELSENEXTIK SRET 
URN 

2390 CLS11J=21:E8=“E ME RGENC y":GosuBs2o 

2340 PRINT:PRINTOO COMMANDS":PRINT"SA INTERSECTOR RADAR “ZPRINT/2 
INTERGALACTIC RADAR“:PRINTO3 SOS BASE COMUNICATION“EPRINTO4 ANT 
I-MATTER PLANET FOR RECHARGING“:PRINTOS SURRENDER”SPRINT"6 AUTO 
DESTRUCTION“2PRINT7 BLACK HOLE” 

2350 PRINT“O ENEMIE REPORT"2PRINT"9 RECARREGAR CRISTAIS DE LITIU 
Ho DEPOSTTOS=", ICIPRINTOS Gr Spock lembra perdas de Energia « Te 

mpo e «ee IPRINTECT=KS 

2580 Cr=cre E IFCT=0THENIGOELSEPR INTAB96, “CENTER )? p PASS INKEYSEIF 

AS=”"THENZI4OELSERAZVAL (AS) EPRINTAA; 3 IFAACDORAR) 9 THENSOODELSESSS 
=ST$"GOSUB2O 

2370 IFAA=OTHENZOOOELSEONAAGOTO2380, 2430, 2440, 2450, 2480, 2490,250 

0,2560,2700 

2380 CLS:FORIK=0TO9S:SETCIK,0):SETCIK, 47) NEXTIKEFORIK=0TOA7 ESET 
(0, 1K) !SET(96, IK)3NEXTIK 

2390 FORI=0TO74FORJ=0T07417=18128+Ju6+2119=17+642U=USR(1O)FIFSCI 
J)=1THENPRINTOI?, STRINGS(2, 176); !PRINTOIS,STRINGS(2, 194); !NEXTU 
[ IELSEPRINTOI?-2, STRINGS(6, 191); 1PRINTOI9-2, STRINGS(6, 191), ENEXT 
s,1 

ZÃDO 17=5in126+5206+2119=17+644PRINTOIZ, STRINOSC2, 149), !PRINTAIS 
+ STRINGS(2, 188) 

24140 PRINTOSO, ENS, IPRINTOLL4, "0174014757," 50247, 2PRINTOSZO,S1”4 
S1+24”,“182+2,1PRINTI497, “SECTOR RADAR 

2420 PRINTA9AS, “HIT. .”; 1GOSUB25BO: IFIK=9THENS420ELSET=T-11E=E-10 
OsCLS:IX=1 16070950 

2430 CLS:PRINTQUADRADAR”; TAB(A0)ENS;” QL" ,QL+Z5”,“,Q24ZEPRINTIL 
NPUT“UHAT QUADRANT TO RESEARCH (01,02)”;L, MIPRINTIPRINTORADAR SC 
AN...” 3FORIK=20T040!U=USRCIK) ENEXTIKIPRINTO(L=4,M-1) 

2434 FORI=OTO7:FOR.J=0TOZ:11=404+301+ JE IF J=i THENPRINTOLI, CHRS(140 
), PRINTOIL+S76, CHR$(140) JELSEPRINTOII, CHR$ (186), IPRINTOII+S76,C 
HR$(143); 

2432 NEXT, LIFORI=0TO7 1PRINTOA67+I464,CHRS(183) p IPRINTOA9D+INGA, 
CHR$(487), INEXTI 

2433 JJ=Qin64+Q2n3+471 

2495 FORJI=1TOZIFORI=0TO71FORL=0TO7EIFABSCQ(I,L)))9THENAS="R“ELS 
Easer 

2436 FORJ=0TOZIII=469+In64+LU3+JIPRINTOLI,CHRSC19L) LF J=ITHENPR 


presenca nos quadrantes 





45 





QUASAR IV: UMA AVENTURA COMPILADA 


46 


INTOTI-1, AS;ELSEPRINTOLI-L, 
2437 1FII=JJTHENPRINTAII-I,“(4)7s 

2438 NEXTJ,LIPRINTOII-24, STRINGS(24, 128); 

2439 NEXTISNEXTJTIE=E-200:T=7-12:60T0380 

2440 CLS:PRINT“OS covardes nao vivem... “:PRINTEGOSUBBOLPRINT"Um 
gay faria coisa melhor. ..”:GOSUB8O: IJ=24:E$="=( SOS BASE ) 
2G0SUB120:PRINTIPRINT“Alerta vermelho comunicado “a Frota Estela 
pé 

2442 FORI=DTO3:FOR J=DTO3:KCCT, J)=RND(104)-LENEXTJ, LEPRINTOAnal is 
e dos codigos de Transmissao (X de Incerteza):”:PRINTCODE K 
RD Me 

2444 FORI=0TO3:PRINTI;SFORJ=0TO3:PRINTUSINGCMWWN;KOCT, JD; ENEXTS 
2PRINTENEXTISPRINTYSOLICITAR “A BASE SUA POSICAO? (Sr Spock lemb 
ra que se a 

mensagem for interceptada, babau ba: E... (Y/N)7"1GOSUB2580 

2446 IFIK=9THENLAZDELSEIFASC)7Y” THENISO 

2447 INPUT“Codigo de Tx”; I3IFICOORI ATHENS 420ELSETI=KO(I, 10) 2PRI 
NT“Probabilidade de interceptacao = “,11:558=ST$:GOSUB20:PRINT"T 
X1“FEFORJ=S TOLOS PRINTRND(9P) FU=USR (SO) ENEXTISPRINT 

2448 PRINTORXEp FOR Ja TOLOSPRINTRND(9) p “U=USR (20) ENEXTJSPRINTEP 
RINT“DECODER :” ; 260702650 

2450 CLSSSI=RND(B)-1154=RND(B)-17 LFS(SI, 54) )1THENZASOELSEPR INT” 
NEAREST ANTI-MATTER PLANET AT SECTOR:”;53+257,”;54+Z2PRINT“UNDET 
ECTABLE BY SRS“:PRINTIPRINTENS;” HAS 20% CHANCES TO EXPLODE IN O 
RBIT EACH 400 MEGAJOULES OF REFUEL”2PRINT 

2460 PRINTO(Y/N)7”:G0SUB2S00: IF IK=9THENS 420ELSEU=USR (50) E LFASC)” 
YºTHENT=T=. 5:E=E-S0:60TOJB0ELSEI J=440:E$=“0RBITE “2GOSUB1ZOPRIN 
T"PRESS 'Z" TO STOP REFUELV:S1=53152=54 

2470 PRINTOS12,68;” LEVEL”; ESIFRND(O)CCZL/20) THENZ61DELSEE=E+100 
2T=T=. LE IFINKEYS="2ºTHENIBOEL SEFOR IK=1 TO20ENEXTIK2G0TOZ47O 

2480 CLS: IFRND(O)C.STHENPRINTKSCIG);” Nao aceitaram” :GOSUB8OsT=T 
—4260T0380ELSEPR INT“0K |” ;RND(2000) ;“Capturados. SCORE O!“:STOP 
2490 CLS2CT=102:FORI=10TONSTEP-12PRINTI; 2FORIK=4T0302U=USR CIK+5) 2 
NEXTIKENEXTISGOTOZSLO 

2500 CLSSPRINT“MANUAL CONTROL TO ESCAPE THROUGH A BLACK HOLES“:P 
RINTYCZ,X) AND (<,))72PRINTEPRINTOHINIMAL CHANCES. (Y/N)7“2GOSUB2 
580: IFIK=9THENLAZOELSEPRINTOAZS, “TRAVEL TIMESZEIFASC)7Y"THENT=T- 
12:00TO3BOELSECT=992VL=46:UM=24 

2510 FORI=0TOBIFORIK=22+28 1 T069-28I*SETCIK, 1341): SETCIK,35-I) NE 
XTIKIFORIK=13+1T095-12SET(22+28I, IK)3SETC69-D8T, TK) ENEXTIK 

2520. FOR J=1TO112VL=RND(3)-22U2=RND(3)-23RESETCVL, VM) SUL=VL +V4/28 
VH=VM+V2/27 TFPOINT(UL, VM) =- 1 THENZ64DELSESET CUL, UM) 

2530 I7=PEEK(14944) 2 19=PEEK (14968) :VZa0s IF I7=1 THENVZELELSEIFIZ=4 
THENUZ=-4 

2540 VL=OsIFIS=64THENVI=LELSEIFI9=16THENVL=—L 

2550 RESETCUL, VM) EUL=UL+VA EUM=UM+UZA IFPOINTCUL, VM) =—1THENZ6L0ELS 
ESETCUL, VM) FU=USR (20) PRINTO4I9, CT; “p3CT=CT-12NEXTJ, IRE=E-300 
4T=T-3260701140 

2560 CLSIPRINTKSCIG);” SENSORS“:PRINTEFORI=OTOZ E IFKI(I)C=OTHENNE 
XTIELSEPRINTI+A ,K1(1)+797,“9K2C1)47, 68; KICI)ENEXTI 

2570 PRINTIPRINTENS;” SECTORI”4S1+Z5”,”/52+71E=E-100:T=T-12PRINT 
”HIT. “3 GOSUB2580: IF IK=9THENS A20ELSEGOTO38O 

2580 CT=K51Ik=0 

2590 AS=INKEYS: IFAS=““THENCT=CT-13 IFCT=0THENIX=1 * IK=9RETURNELSE 
2590ELSERETURN 

2600 CLSIPRINTESSS=STS:GOSUBZO!FORIK=1T0K/2+1021=RND(6) 2 J=RNDC9) 
2U=USR CI) +USR CJ) +USR (9) ENEXTIKIPRINTVOCE NAO E” ETERNO. Acabou 
o TEMPO.” :GOSUBBO:GOTO2620 

2610 CLS1E=0:PRINTEPRINTEMN=1702HX=1920:DR=.32FORIK=1 TOS1GOSUB3O 
:NEXTIK:55$=5N$ 2 GOSUB20:U=USR (2000) :PRINTENS;” DESTROYED!  AH,AH 
co AHIO 

2420 IFK9=00RT(=0THENCLS:GOSUB45:GOSUB10530:CLS 

2625 1)=384:E$="FROTA ESTELAR!“ 1GOSUB120:PRINTIPRINT"Aval iacao d 
o comandante da Enterprises” IPRINTCInimigos vitor iososi”sK9 
2630 IFEL(=00RE(=0THENN=DELSEN=INT((S0N(KO-K9)/K0)+(158K4/KO)+(4 
SeT/TTI+(20/L0)) 

2640 PRINTEPRINTYOUR INFINITESIMAL RATING: “q Nº TEN)79THENPRINTO 
Falha tecnica... “ELSEIFN)S9THENPR INTWSELSELFN(40PR INT”CONDECORAC 
AO: Corte Marcial |“ELSEPRINT"CONDECORACAO: Quem sabe em outra o 
portunidade. ..” 

2645 LPRINTSENO 

2650 FORI=0TO7 :U=USR(10) !FORJ=0TO7 SU=USR (20) 

2660 JII=ABSCG(I,J)/100)-ABSCFIXCQCI, J)/400))2IFJI!)=. LOTHENZO8O 
ELSENEXTS, 1 

2670 PRINT”... INTERFERENCIA INIMIGA IMPEDE RECEPCAO!|“1G0TO2695 
2680 PRINT” XoYmep(I41DUCJ+1D;”  X+Y=”,1+J+22GOSUBBO:GOSUBBO: T=T 
-L2E=E-100: IFRND(401)-1)=IITHENISO 

2690 Q(I, J)=Q(I, J)-10:B9=89-171 J=9601ES="ALERTA VERMELHO" IGOSUBA 
20!PRINTIPRINT"FROTA ESTELAR INFORMA ... BASE DESTRUIDA! 

2695 GOSUBBO:6OTO380 

2700 CLS*IFIC=0THENPRINT"SR. SPOCK! Nao ha'mais depositos de cri 
stais de Títium 
disponíveis na galaxia 
2705 PRINT“ENERGIA. .3“y 
K9:PRINT"DEPOSITOS!”, IC 
27140 PRINTIPRINT"Deseja tentar a tra 
ulo de Servico 

para alcancar um deposito de Cristais de Litium (Y/N)?”1GOSUB258 
OsIFIK=9THENI420ELSEINPUT”MegaJoules p/ o Modulo de Servico”sI 
2720 IFI)=ETHENPRINTIPRINT“IMPOSSIVEL ! |”:GOSUBSO! T=T-.51GOT0380 
2730 GOSUB4S1ES=STRINOS (SO, 32) !U=USR (-2000) :FOR IJ=4 TOLOS PRINTO97? 
0,E$, U=USR (100) !PRINTO970, “NAVEGAÇÃO! Controles (Z,X) e (€,)) 
Atencao...“ pSNEXTIS 

2734 IFPEEK (16549) )BOTHENDEFUSR=-5300ELSEPOKE16526,76!POKEL6527, 
235 

2735 EsE-I3U=USR (0) *G0SUBBO 

2740 IC=IC-1:E=E+I:T=T-12G0T0380 

2800 CLS:PRINT“Comecamos mal...“:GOSUBBO1GOTO2610 

5000 CLS21J=466:E$=”( DA NG E R »7:G0SUB120:GOSUBAS:ES=STRINOS 
(64, 128)1CLS 

5005 FORIJ=1T032PRINTIO,ES; :GOSUBS100:PRINTRO, “COMPUTADOR! Atenc 
ao! Atencao! Foco de particulas gravitacionais.”!GOSUB10400:NEXT 









































“1 GOSUBBO!T=T-1:60T0380 
PRINT“SHIELDS. . !“EL2PRINTOINIMIGOS. 5”; 





ta Zona Neutra no Mod 








1) 

SOLO FORIJ=1TO3:PRINT9ÍZE,ES, !GOSUBSL00:PRINTOL2ZB, “SENSORES! Flu 
xo gravitacional fortemente concentrado.” :GOSUB10400:NEXTIJ 
5015 FORIJ=1T02:PRINTO256,ES; !GOSUBS100:PRINTO2S6, “ENGENHARIA: M 
otores detratorês insuficientes. Telas ativadas!”:GOSUB10410:NEX 


TIJ 
5020 FORIJ=1TOZLPRINTOI84,ES; !GOSUBSL0O:PRINTOISA, "SR SPOCK! Alg 
lomerado Globular Neutronico. Centro computado.” GOSUB104140:NEXT 
TJ 


5025 U=lSR(-2000) *FORI J=1 TOZO1PRINTOS12,ES, !U=USR (100) IPRINTOSIZ 
+ "NAVEGAÇÃO! Controles (Z,X) e (4,)). Penetrando no campo de...” 
ZU=USR (300) NEXTIJ 
5030 CLSIPRINTS46A, CHR$(23) 1 "((QUASAR 1V))”2GOSUBLO360 
5095 IFPEEK(16549) )BOTHENDEFUSR=-10900ELSEPOKE 16526, 1081POKE1652 
7,213 
SÕ4O CLSIU=USR (O) !IFI=OTHENZ6LO 
5045 CLS:PRINTA96S, “SENSORES! Indicam distorcao 
ssada...”;1Ei=E1-1001GOSUBBO1AS=INKEYS!GOTO380 
5100 FORI7=1T0301NEXTI7 !RETURN 
6001 X$="1234567890123456789012345678901234567890123454789012345 
678901234567890” 
6002 Y$="1234567890123456789012345678901234567890123456789012347 
4003 I1=PEEK(VARPTR(XS) +41)! I2=PEEK(VARPTR(XS)+2) 1 | m11+ 120256 
6004 Li=I!+(11)32767)n65536 
6005 POKES642: 0KE16423, I2 
6006 JL=PEEK(VARPTR(Y$)+1)1 J2=PEEK CVARPTR (VS) +2) 1 J Im Ji+JZe2s6 
6007 POKEII+, JS2POKEII+2, JZ2!RETURN 
10000 GOSUBASICLS 
10030 GOS4B40400 
10040 PRINTCA LERTA VERMELHO! CURSO DE COLISAO! AT 
ENCAO |“: GOSUB 10400: GOSUB 10400: GOSUB 10400 
10050 PRINT“SENSORES: INDICAM PRESENCA DE MINAS ESPACIAIS A FREN 
TE!” 1GOSUB 10400: GOSUB 10400: GOSUB 10400 
10060 PRINT“COMPUTADOR: MANOBRAS EVASIVAS INEFICAZES. RAIOS TRAT 
ORES |“: GOSUB 10400: GOSUB 10400: G0SUB 10400 
10070 PRINT“ENGENHARIA! TELAS ATIVADAS. VELOCIDADE RELATIVA A“sR 
ND(B),** LUZ.”2G0SUB10410 
10080 PRINT”SENSORES! DISTANCIA”;RND(900); "MGM. MINAS ANTIMATERI 
À KLINGON. ”:GOSUB10410:GOSUB10410 
10090 PRINT“ENGENHARIA! FORCA AUXILIAR LIGADA. VELOCIDADE REDUZI 
DA.” :GOSUB10420 
10100 PRINT:PRINT“COMPUTADOS 
UP> e (DOWN)... .”2GOSUB10420 
10110 GOSUB10350 
140160 U=USR(-3000) :U=USR (30) 1X=158724 1Z=0:CLS!GOSUB10220:GOSUB1 
D280:POKEIX+1,32:POKEIX, 62ºFORI=1TOZS0NEXTITU=USR(30):POKEIX,32 
sPOKE16672,5 
10470 IY=PEEK(14400)2 IFIY=BTHENIX=IX-65: IFIX<15I60THENIX=IX+6516 
oTo10200 
10180 IFIY=16THENIX=IX+63:1FIX)16317THENIX=IX-63:G0T010200 
40490 IX=IX+13IFPEEKC(IX)<)32THENSOZLO 
10200 POKEIX,62:POKEIZ,32:1Z2=IX:FORI=1TOZLINEXTI 
40210 IFPEEK(IX)=42THENLOSODELSEIFPEEK (1X) =46THEN10IIDELSEL0470 
10220 ZR=15360 
10230 NN=10+58IE 
10270 IR=RNDC(NN)+21ZR=ZR+IRE IFZR)16379THENRETURN ELSEPOKEZR, 4276 
oTosD270 
10280 IW=63:FORI=1TOBIPRINTOLM, STRINGSCI,".")y*IM=IW+632NEXTIS IM 
=1W+12FORI=BTOZSTEP-1:PRINTOIMW, STRINOSCI,7.); 5 IW=IW+6SENEXTI 
10290 RETURN 
10300 Z8=1:POKE16672,61POKEIX, 191:POKEIX+1,140:POKEIX-1,140!POKE 
1X-64,1761POKEIX+64, 194 U=USR(-190) USUSR (15) FU=USR (-2000) 3 U=USR 
<s0> 
10910 POKEIX, 1661POKEIX+1,1365POKEIX-1, 132ºPOKEIX-64, 164EPOKEIX+ 
64,137 2 U=USR (-900) SUSLISR (100) *U=USR (-1000) “U=USR (300) U=USR (-100 
JEU=USR (200) 
10320 POKEIX,132:POKEIX+1, 128:POKEIX-1,128:POKEIX-64, 1283POKEIX+ 
64,128: U=USR(-1000) *U=USR (200) sPOKEIX, 1287U=USR (-S5000) FU=USR (200 
)5CLS:G0TOZ6LO 
10330 Z8=0:CLS:PRINTCHR$(23) 1FORI=1TO4:PRINTO2S6, “SUCCESSFUL PAS 
SAGE” *U=USR (BODO) FU=LISR (SO) PRINTOL92,” 

“3FORJ=STOLOO:NEXTJ, 1 
10335 PRINTOZSA, CHR$(30); “Dificuldade aumentando...” 
10340 GO0TO10390 
10950 CLSsPRINTCHRS(23)PRINTOSGA, “CCC IMPACTO 2557 
10360 FORI=80TOZOSTEP-1 :USUSR(-200) FU=USR (TI) INEXTISFORI=19TOLSTE 
P-L 5USUSR(-S00) SU=USR (CI) SNEXTI 
10970 1 J=098:E$="MANOBRAS EVASIVAS EM MANUAL w 
2898, STRINGSCSO “)s 
10975 1J=940:E8="ABRIR TELA VISUAL”: GOSUB120:GOSUBBO :GOSUBAS 
10380 RETURN 
10390 GOSUB10430:AS=INKEY$:GOTOISO 
140400 FORI=1TO3:U=USR (-3000) *U=USR (BO) FOR J=1TO30:NEXTJ, IZRETURN 
10440 FORI=1TOS:U=USR (-2000) FU=USR (10) FU=SUSR (-3000) FU=USR (80) 2FO 
RJ=1T030:NEXT.J, TERETURN 
40420 FORI=1TOZ:FOR J=1 TOZOU=USR(-100) SUSUSR (CJ) NEXT, ISRETURN 
10430 ZR=1 
10440 FORI=1TOLO0:NEXTI 
40480 FORI=1TOZL :U=USR (-2000) "U=USR (20) FUSUSR(15) FU=USR(20) EU=US 
R(-5500) !USUSR (15) :NEXTISZL=7L +15 LE=TE-12IFIESOTHENIE=1:ZL=6 
40490 IFZL=6THENIR=15360:CLS:PRINTCHR$(29)!PRINTO44B, “Sorte, por 
enquanto.” :GOSUB105S40:AS=INKEY$1GOTOI80 
10500 POKEL6772,102:U=USR(-10000) *U=USR (20) :U=USR( 13) FU=USR(-300 
0):FORI=1TOZIU=USR (15) U=USR(-1000) FU=USR (16) U=USR(-3000) 3 U=USR 
(48) FU=USR (10000) :U=USR (10) FU=USR (13) FU=USR(-3000) ENEXTI FU=USR( 
3000) FUSUSR (15) FU=USR (16) U=USR (15) FU=USR(-30000) 
10540 U=USR(18) 
10520 RETURN 
10530 C1=22:G0SUB105501C1=18:G0SUB10550:C1=15:GOSUB10SSO:Ci=12:6 
OSUB10570:C1=101G0SUB10570"U=USR(9)*FORI=1TOL0O!NEXTIZFORK=1TOZ* 
GOSUB10500:NEXTK U=USR t-500) CLS 
10540 U=USR(-300) 1FORI=40TOLSTEP-1:U=USR(I)INEXTISRETURN 
10550 U=USR(-10000) :G0SUB 105901 U=USR (Ci ) :GOSUB105901U=USR (-2700) 
*GOSUB10590:U=USR (C1) 1GOSUB 10590: U=USR (Ci) 1 GOSUBL0S90FU=USR (-100 
00) *GOSUB LOSPO:U=USR (Cí ) 1GOSUB 10590! U=USR (-2700) *GOSUB 10590 1U=US 
R(C4) 2GOSUB 105907 U=USR (CS ) 1 GOSUB 10590 FU=USR (-6000) "GOSUB10590 
10555 U=USR(CL) 
40560 GOSUB10590:U=USR (-B000) :GOSUB 10590 *U=USR (Cí) 1GOSUBLOSPO U= 
USR(C1) :GOSUB 10590 !U=USR (-2700) 1U=USR (C1) FU=USU=USR (Cí) TU=USU=US 
R(CL)SRETURN 
10570 GOSUB10590:U=USR (-22000) 1GOSUB 105901 U=USR (C4 ) *60SUB405901U 
=USR(-2700) :G0SUB 10590: U=USR (Cí ) 1GOSUB 105902 U=USR (C4) 1GOSUB 10590 
FU=USR(C4) *GOSUBLOSPOFRETURN 
10590 PRINT9472,“Em breve! Quasar V.“1OUT255, 0! IR=15360+RND(1000 
)*POKEIR, 2531 15=15360+(RND(S0D)42) 1POKEIS, 254 
10600 PRINTO472, STRINGS(20,” ”)y 10UT255, 1SSRETURN 
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Cê Ea INSTRUMENTOS 



































* Decida sem dúvidas, erros de informação, falhas de estoque 
ou vacilações nas entregas. 


— Completa linha de instrumentos de teste e medição. 






— Garantia de até 2 anos. 
— Assistência técnica própria permanente. 
— Sistema inédito de reposição quando em 
garantia. 


— Atendimento personalizado para 
todo o Brasil. 


SUPRIMENTOS 


INFORMÁTICA 
CPD 





* Ponha-se em dia com o 
futuro. 


* Unimos o útil ao agradá- 
vel: qualidade/preço. 


— Microcomputadores 
Prológica. 


— Pronta entrega para todo 
o território nacional. 
— Assistência técnica 
própria. 


— Estoque com os mais 
variados produtos. 


— Revendedores em todo 
o território nacional com a 
melhor assessoria para ampa- 
rá-lo no momento de decisão, 
mesmo que você só precise 
de uma informação mai 
precisa sobre os 
equipamentos. 


—, Fitas impressoras 
- Formulários 

. Etiquetas 

. Disquettes 





. Mesas 
. Estabilizadores 


-« Modens 


. Pastas para 
formulários 


AJUDANDO 
A DESENVOLVER 
TECNOLOGIA 


VISITE NOSSO SHOW-ROOM OU 
SOLICITE NOSSO REPRESENTANTE 











FILCRES ELETRÔNICA ATACADISTA LTDA. 
Rua Aurora, 165/171/179 — São Paulo — SP 
PBX: 223-7388 
Vendas São Paulo — Tels.: 220-7954/222-3458 


am Vendas outros Estados — Tels.: 223-7649/221-0147 


Telex: 1131298 








A memória do equipamento possui alguns truques que apenas com uma 
análise mais profunda é possível descobrir, como vamos ver neste artigo 








Apple: 


o mapa da ROM 


Aldo Felicio Naletto Junior 


partir deste número, em três 

artigos sucessivos, O leitor fi- 

cará mais familiarizado com 

as rotinas da memória ROM 
do Apple. No primeiro trabalho há uma 
introdução mais ou menos teórica. Na 
próxima edição apresentaremos o mapa 
das rotinas da ROM e encerraremos o 
artigo com um mapa geral sobre a di- 
tribuição da memória. 

As rotinas das ROMs do Apple for- 
mam um autêntico labirinto de Creta, 
como na mitologia grega, onde o usu- 
ário, se não agir como Teseu, guiando-se 
com um novelo de lã para chegar ao mi- 
notauro e voltar, pode se perder. Com o 
trabalho que agora apresentamos, em 
sua primeira parte, procuraremos ofe- 
recer informações para utilização mais 
proveitosa do computador. 

Antes de mais nada é necessário sa- 
ber algumas coisinhas a respeito dos 
critérios de ocupação de memória do 
Apple. Basicamente, os 65536 endere- 
ços que o 6502 pode acessar são di- 
vididos em quatro faixas, na seguinte 
sequência: 2 Kb para a memória do sis- 
tema, 46 Kb para os programas e va- 





* Nota do autor: Você conhece a lenda de Te- 
seu e o Minotauro? Bem, Teseu foi encarre- 
gado de penetrar no intrincado labirinto de 
Creta e matar o Minotauro, um monstro de 
cabeça de touro e corpo de homem que mora- 
va lá. Teseu não tinha o mapa do labirinto e 
por isso levou um novelo de lá que foi desen- 
rolando pelo caminho. Assim, Teseu matou 
o Minotauro, seguiu o fio até a saída do labi- 
rinto e entrou para a história. 


48 


riáveis do BASIC, 4 Kb para entrada e 
saída e 12 Kb para as ROMs (ou 
EPROMSs) do interpretador e sistema 
operacional. 

A memória do sistema é ocupada da 
seguinte maneira: de $00 a $FE ficam 
as variáveis do sistema; de SFF até 
S10F, um buffer que é usado pelo 
BASIC para traduzir valores binários 
para strings (como na função STR$); 
de $110 até $1FF, a pilha do sistema 
e do BASIC (guarda principalmente 
dados de FORs, endereços de retorno 
de sub-rotinas e resultados interme- 
diários de expressões); de $200 a 
S2FF, o buffer do teclado (onde são 
armazenados os caracteres que digi- 
tamos durante as entradas de dados, 
linhas de programa ou de comando); 
de $300 a $3FF fica a área de veto- 
res (na verdade, os vetores só ocupam 
esta área a partir de $3EF — ou 
$3CF, caso o DOS esteja presente — 
e o resto fica livre para o usuário) e 
de $400 até $7FF a memória de vídeo. 
Esta serve basicamente para armaze- 
nar as 24 linhas do vídeo, o que é fei- 
to pelo Apple segundo uma sequência 
toda esquisita: em $400 começa a 
primeira linha, a qual é seguida pela 
nona em $428, pela décima-sétima em 
$450 e em $478 por oito bytes que 
são reservados para uso do cartão que 
ocupar o slot O (estes bytes não apa- 
recem no vídeo), em $480 começa a li- 
nha 2, que é seguida em $4A8 pela li- 
nha 10, em $4D0 pela 18, e em $4F8 
pelos oito bytes reservados ao slot 1. 





Em $500 temos a sequência de linhas 
3, 11, 19 e os bytes do slot 2, e em 
$/580 as linhas 4, 12, 20 etc. 

Os 4 Kb de entrada/saída na verda- 
de não contêm memória. O que há 
são circuitos pendurados em certos en- 
dereços, de forma que o simples acesso 
a eles modifica certas características 
do hardware (como modo texto ou grá- 
fico, alta ou baixa resolução etc.). Há 
também algumas posições em que o sis- 
tema lê dados, como sinais do gravador 
ou códigos de teclas pressionadas e ou- 
tras que são reservadas para ROMs dos 
cartões de expansão. Esta área e a me- 
mória serão vistas com mais detalhes na 
tabela Mapa Geral da Memória, em ou- 
tro artigo. 

Os 48 Kb do BASIC são assim dis- 
tribuídos: os programas começam na po- 
sição $800 Em verdade este endereço 
contém sempre 00 — é um truque do 
interpretador — e o programa começa 
mesmo em $801) e são seguidos pri- 
meiro pelas variáveis simples e depois 
pelas indexadas. Após as indexadas co- 
meça O espaço string que vai até a posi- 
ção estabelecida por HIMEM (inicial- 
mente acertada pelo sistema no primei- 
ro endereço após a última página de 
4 Kb disponível; quando o DOS está 
presente, HIMEM é colocado logo abai- 
xo dele, reduzindo a memória dispo- 
nível para cerca de 35 Kb). 

Oespaço string é ocupado pelas strings 
propriamente ditas, isto é, pelas cadeias 
de caracteres que compõem cada uma 
delas. Na área de variáveis o que fica 
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mesmo é um conjunto de três bytes pa- 
ra cada string (chamada pela Microsoft 
de string descriptor (descritor de string) 
e daqui para a frente referido como 
DESCR), sendo o primeiro a exten- 
são e os dois seguintes o endereço on- 
de ele realmente está. 

O espaço string vai sendo ocupado de 
trás para a frente, o que significa que 
cada nova string que aparece é colocada 
antes das mais antigas. Cada vez que 
uma delas é alterada, o sistema usa um 
novo local para armazenála, deixando 
sem uso o antigo. Dá para perceber que 
logo a memória estará entupida de 
strings sem uso, misturadas às ainda vá- 
lidas. Quando isso acontece o sistema 
faz um rearranjo de memória (chamado 
pela Microsoft de “garbage collection”, 
coleta do lixo), jogando para o final de- 
la as strings válidas e deixando o resto 
novamente livre. 

A memória do BASIC não é apenas 
ocupada pelo programa e suas variá- 
veis. Também as páginas gráficas 1 e 2 
de alta resolução e a 2 de baixa parti- 
lham dela. Estes inquilinos são bastante 
incômodos em certas condições (es- 
pecialmente a página 2 de baixa resolu- 
ção, que ocupa o mesmo lugar do pri- 
meiro Kb do programa), pois o sistema 
não sabe quando eles estão sendo usa- 
dos e continua a armazenar coisas ali. 
A página 2 de baixa resolução fica entre 
$800 e SBFF, a 1 de alta resolução 
entre $2000 e $3FFF e a 2 entre 
84000 e $5FFF. 

Os últimos 12 Kb são ocupados por 
ROMs ou EPROMs que contêm o 
programa interpretador e o sistema 
operacional, sendo que o primeiro 
ocupa 10 Kb e o segundo os 2 Kb 
restantes. Este último é quase to- 
talmente auto-suficiente, isto é, não há 
nenhuma chamada ou salto para as ro- 
tinas situadas fora dele, com exceção de 
alguns jumps para as posições $E000 e 
$E003, que devem conter os pontos de 
entrada a frio e a quente, respecti- 
vamente, da linguagem ou programa re- 
sidentes. Para quem não está acostuma- 
do com estes termos, ponto de entrada 
ou partida a frio quer dizer iniciali- 
zação geral do sistema. Todas as condi- 
ções iniciais são estabelecidas, começan- 
do tudo do zero. Partida a quente, por 
sua vez, é equivalente ao RESET do 
Apple: não há perda de dados ou condi- 
ções correntes do sistema. 


O BASIC NO APPLE 


Você sabia que o BASIC do seu 
Apple é interpretado? Isso quer dizer 
que o programa em BASIC não é con- 
vertido para a linguagem de máquina, 
mas sim fica na memória mais ou menos 
na mesma forma em que foi digitado, 
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sendo interpretado por um programa 
monitor, o qual vai reconhecendo as ins- 
truções e chamando as rotinas em lin- 
guagem de máquina que realmente as 
executarão. 

O programa interpretador consiste, 
basicamente, em um loop no qual o 
computador espera que a entrada de 
uma linha pelo teclado (ou periférico 
selecionado por IN), converte-a para 
um formato comprimido (eliminando 
espaços e substituíndo as palavras- 
chaves por códigos de um só byte, cha- 
mados tokens) e a armazena na mémó- 
ria de programas ou salta para sua inter- 
pretação, dependendo de ela ser come- 
çada por um número ou não. Em 
qualquer dos dois casos o sistema sem- 
pre acaba retomando ao ponto ini- 
cial, onde aguardará a entrada de uma 
nova: linha. Este ponto inicial é conhe- 
cido por READY no TRS 80, e será 
chamado assim também aqui. 


As linhas convertidas e armazenadas 
na memória ocupam sempre cinco bytes 
a mais que sua própria extensão. Os dois 
primeiros são ponteiros que indicam o 
início da próxima linha, os dois seguin- 
tes contém o número da linha atual e o 
último byte da linha é sempre um 00. A 
linha mesmo começa no quinto byte e 
vai até o penúltimo. Então pode apare- 
cer uma dúvida: se os dois primeiros 
apontam para o início da próxima, 
como é que fica a última linha do pro- 
grama, que não tem para quem apon- 
tar? Na verdade, este é o truque usado 
pelo sistema para saber quando o pro- 
grama acabou. A última aponta para 
uma pretensa linha de apenas dois by- 
tes, ambos 00, isto é, uma falsa linha 
cujo ponteiro é inválido, já que não há 
PE apontada armazenada antes de 


Na interpretação de uma instrução 
qualquer, o sistema deve estar sempre 
inicialmente olhando para um byte 00 
ou $3A (caráter “*:”), caso contrário 
haverá erro GRAFIA. As posições $B8 
e $B9 contêm o endereço para o qual 
o interpretador está olhando a cada ins- 
tante. Elas constituem uma das mais im- 
portantes variáveis do sistema, a qual se- 
rá chamada aqui de PTRLIN. 


O sistema pega os caracteres da li- 
nha sob interpretação através de duas 
rotinas também muito importantes, que 
são PROXCAR e PEGCAR. Estas 
duas rotinas colocam o caráter apontado 
por PTRLIN no acumulador e voltam 
com o Carry resetado se este caráter for 
um dígito ou com flag Zero setado, 
caso seja um byte 00 ou um “*:”. A roti- 
na PROXCAR primeiro incrementa 
PTRLIN e depois pega o caráter. Já o 
PEGCAR é, na verdade, uma segunda 
entrada de PROXCAR, logo após o in- 
cremento de PTRLIN, e apenas põe 
no acumulador o caráter endereçado 
por ele. Ambas as rotinas ignoram es- 
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paços em branco, saltando por cima 
deles até thcóntrárem o caráter vá- 
lido. Estas tótinas estão originalmente 
gravadas ha -ROM, mas são transferi- 
das para O Início da RAM durante a 
inicialização do BASIC. A rotina 
PROXCAR começa em $00Bl e a 
PEGCAR em $00B7. 

Como já foi visto antes, as variá- 
veis irmas começam logo após os dois 
bytes 00 do fim do programa, e são se- 
guidas pelas vafláveis indexadas e pelo 
espaço string. Os endereços de início 
do programa, das variáveis simples, 
das indexadãs é do espaço string são 
guardados hat vafiáveis dos sistemas 
INIPROG, - INIVARS, INIMATR e 
INISTR. a: 

As variáveis sittples ocupam sempre 
sete bytes, sendo dois para o nome e 
cinco para O valor. Uma variável tem os 
bits 7 dos dois bytes do nome setados 
e usa aperias dois dos cinco bytes res- 
tantes para O valor. Uma variável real 
tem os bits 7 do nome zerados e ocupa 
todos os cinco bytes, sendo o primeiro o 
expoente e OS quatro seguintes a mantis- 
sa (mais significativo primeiro). As variá- 
veis string têm o bit 7 do primeiro by- 
te do nomê-zerádo e o do segundo se- 
tado, e usam ápenas três bytes para o 


Em MS nº 41, ha matéria A Ló- 
gica na Programação, quinto 
parágrafo, sétima linha, apare- 
ceu, indevidamênte a palavra in- 
diferençãá, o correto é: ... As 
principais opérações são união, 
interseção; diféreriça... 

Na figura.3, forám publicadas 
as linhás A3 ORB7e CS = 
“FALSO” AND NOT B3. Nas 
duas linhas, faltaram os sinais > 
e<.Ocertoé:A >30RB>7 
e CS = “FALSO” AND NOT 
B<3. 


Na figura 8, as operações união, 
interseção, diferença, produto 
cartesiano, projeção, restrição 
e junção fótam impressas sem 
setas. Assiirí, à fortha correta se- 
ria, por exemplo, T+ AU B, e 
não T AUB.Faltou, ainda, na 
operação interseção, o sinal 
n.A fôrma ceita é T+ ANB. 





valor, que na verdade é o descritor de 
string mencionado anteriormente. 

As variáveis indexadas obedecem às 
mesmas regras para nome, porém, 
ocupam dois, três ou cinco bytes por 
elemento, dependendo do tipo. Além 
destes, cada variável ocupa mais 5+2* N 
bytes (onde N é o número de dimen- 
sões), sendo os dois primeiros usados pa- 
ra o nome, os dois seguintes para o to- 
tal de bytes gastos e um byte para o 
número total de dimensões e mais dois 
para cada dimensão, que indicam qual o 
valor máximo de cada uma (primei- 
ro a dimensão, que aparece por último 
no índice). 


ACUMULADORES 


O conceito de acumulador é muito 
importante para entender a resolução 
de expressões. O acumulador é uma va- 
riável do sistema que sempre contém 
um dos operandos e na qual também 
ficará o resultado da operação. Há 
três acumuladores no BASIC, um para 
cada tipo de valor: o ACSINT ocupa as 
posições SAO e SAI, sendo usado 
valores inteiros;o ACSTRI fica também 
em $AO e $Al e retém o PTRDESCR 
(que é o endereço em que está o 
DESCR) da string-resposta (nas funções 
e expressões string, o DESCR do resulta- 
do fica nas posições S9D, $9E e S9F) 
e o ACSPFI, que recebe os valores re- 
ais (em ponto flutuante), ocupa as posi- 
ões $9E até SAI com a mantissa 
ie significativo $9E) e $9D com o 
expoente. O termo ACSOFTI servirá 
de nome genérico para os três acumula- 
dores. O tipo do valor a ser armazenado 
lá é o que dirá qual dos três será usado. 
A variável do sistema TIPOAC, que 
ocupa as posições $11 e $12, informa o 
tipo do valor contido no ACSOFTI. 
A posição $11 indica valor numérico 
se for 00 e string se for 255, enquanto o 
desempate entre valores numéricos in- 
teiro e em ponto flutuante é feito pe- 
la posição $12 — 00 para ponto flutu- 
ante e 128 para inteiro. 


Valores diferentes em TIPOAC não 
estão definidos e confundirão o compu- 
tador, provocando muitos erros tipo 
DIFERE. Algumas funções internas 
(+,—,*, /, ” AND e OR) requerem dois 
operandos. Nestes casos são usadas variá- 
veis auxiliares para conter O primeiro 
operando, ficando o segundo no 
ACSOFT1. Por analogia, estas variáveis 
auxiliares serão chamadas ACSOFT2 
(nome genérico), ACSTR2 ($A8/$A9) 
e ACSPF2 ($AS/$SA9). Não existe 
ACSINT2 porque toda a matemática 
do Apple é em ponto flutuante, sendo 
usado o ACSINT apenas nas conversões 


inteiro/ponto flutuante e ponto flutu- 
ante/inteiro. 


BIBLIOGRAFIA 


No levantamento das rotinas da 
ROM foram usados apenas três li- 
vros: o “6502 Software Design”, de Leo 
J. Scanlon (Serie Blacksburg/Howard 
Sams & Co, Inc.), o “Guia de Usuá- 
rios do Apple II”, de Lon Poole, 
Martin McNiff, Steven Cook (Osborne/ 
McGraw Hill) e o “Apple II Circuit 
Description”, de Winston D. Gayler 
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dos comandos complementares dos arquivos do NEWDOS/80 





Arquivos em disco 
do NEWDOS/680 


João Henrique Volpini Mattos 


omplementando artigo cuja primeira parte foi publi- 

cada em MS 39, vamos agora praticar os novos co- 

mandos utilizados com os arquivos do NEWDOS/80. 

Antes de continuar, é aconselhável uma releitura da 

ii DORA! » pois são muitos os termos técnicos utilizados pelo 

É necessário muito cuidado na digitação das instruções em 

todos os exemplos a seguir. A execução de uma instrução er- 

rada poderá prejudicar toda uma sequência de exemplos. Se 

isso ocorrer, retome ao programa utilizado para criar o arquivo 
e execute todos os exemplos, novamente. 


ARQUIVOS MU 


Este tipo de arquivo foi inicialmente concebido 
tituir os arquivos sequenciais do TRSDOS (PRINT, 
NEWDOS/80), oferecendo algumas pes grava os ima 
numéricos na sua representação binária (e não em ASCII), per- 
mite a alteração de registros (obedecendo certas restrições) e 
possibilita o acesso randômico através de índices. Uma carac- 
terística deste arquivo é o fato dele marcar o início de cada re- 
gistro e de cada campo com determinados bytes identificadores: 


70H — Indica o início de um registro (SOR-Start Of Record). 
Todo o início de um registro é marcado com o byte 
70H, mas nem todo o byte 70H indica o início de um 
registro, pois ele pode aparecer como parte de valores 
numéricos ou em strings (letra p minúscula). 
Indica que os dois bytes a seguir são um valor inteiro. 
reqces que os quatro bytes a seguir são um valor real 
recisão simples. 
ica que os oito bytes a seguir são um número real 
= precisão dupla. 


pos 


72H — 
73H — 


74H — 


As strings são identificadas de dois modos: se ela tem menos 
de 128 caracteres, o byte indicador do campo será o resultado 
da soma de 80H mais o número de caracteres da string. Se ela 
tem 128 ou mais caracteres, a marcação será feita por dois by- 
tes: um 71H e outro indicando o comprimento da string. 
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Para familiarização com este tipo de arquivo, nada melhor 
do que trabalhar um pouco com ele. De início, um pequeno 
programa com a listagem 1, a seguir. É importante não esque- 
cer o ponto e vírgula no fim dos IGEL (Item Group Expres- 


sion List) nas linhas 3, 4,5 e 7. 


CLEAR 1000 


mu 





esmas 
= 
[= 
q 


p 


Execute o programa com RUN, criando o o pp Exem- 

im Volte ao sistema operacional com CMD”S” e chame o 
ERZAP. Com a opção do DFS (Display File Sector) anali- 

se o setor O do arquivo Exemplo/MU (Figura 1). Para facili- 
tar a identificação dos registros e campos foi feito um círculo 
em torno dos bytes SOR dos registros e sublinhados os marca- 
dores dos pos. 

No início do setor vemos um byte 70H (SOR) e logo a se- 

um 8EH, indicando que a seguir vem uma string de 14 

[or (RIO DE JANEIRO), pois a diferença 8EH—-80H = 0EH, 
que é 14 em decimal. Após a string, temos novamente um SOR 
e a sequência de bytes 71H e 82H =130 decimal), indican- 
e que a seguir temos uma string de 130 caracteres (veja linha 

4 da listagem 1). Após os 130 asteriscos, lá na posição 95H, 
temos um novo SOR, apontando o início do registro em que 
foram gravadas as strings NITEROI e CABO FRIO. Identifi- 
que os bytes marcadores destes e Finalmente, no últi- 
mo registro (posição A8H, na figura 1), temos os quatro cam- 
pos gravados na linha 7 do programa. A string 30 é facilmente 
identificável, mas os valores numéricos 31, 320001 e 
33.00000000001 não o são, pois eles estão armazenados em 
sua forma binária: 
e inteiro 31 = IF 00, na representação binária; 
e real 32.0001 = 1A 00 00 B6, na representação binária; 
e duplo 33.00000000001 = FB 2B 00 00 00 00 04 86, na 
representação binária. 

Voltando ao BASIC, escreva agora as linhas da listagem 2, 
abaixo. 
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1 PRINT “Tente de fim de arquivo 
2 PRINT “Postcao do EOF 

3 PRINT “Posicao do erorimo resistr rs LoCeiM! 
*& PRINT "Posicao do ultimo resistro acessado 1": LOCII)a 


Não dê RUN no programa, ao invés disso digite: 


CLEAR 1000 + OPEN “Rº. 1. “EXEMPLO/MU=. “MU + GOTO 1 


O sistema responderá: 


Teste de fim de arquivo 10 
Fosicao do EDF 1 189 
Posicao do proximo resistro 10 
Postcao do ultimo resistro acessado 1? 

BAD FILE MODE in 4 


Observe que a função LOC(1) * |, que indica a posição do 
último registro acessado (REMRA — Remembered Record 
Address) resultou em erro. Isso ocorre porque nenhum registro 
foi ainda lido ou gravado e o sistema invalida a função. Faça- 
mos então a leitura do primeiro registro. Para facilitar a digi- 
tação, substituímos o PRINT pela interrogação “2” : 


GET 1.. AS! 1 7 AS + GOTO 1 


A resposta será: 


RIO DE JANEIRO 
Teste de fim de arquivo o) 
Posicao do EDF 1 189 
Posicao do vroximo resistr 16 
PontRas: do le Lageras ia acednado ETA 






Note que os valores relacionados ao EOF (End of File) não 
se alteraram, pois estamos fazendo uma leitura de dados. Ape- 
nas as posições do próximo registro e do último acessado fo- 
ram alteradas. (Na verdade, os ponteiros que indicam estes re- 
gistros.) Nosso arquivo agora está posicionado no início da 
string de 130 asteriscos. Vamos ler apenas os 10 primeiros: 


BET err (LOMASE 2 PAS GOTO 1 


E teremos: 





o acessado * 16 


Observe que foi possível a leitura parcial de um campo. So- 
mente o NEWDOS/80 oferece esta flexibilidade. Vejamos ago- 
ra O próximo registro: 


GET ec -AS-HS 2 7 AS,BS 1 GOTO 1 


O sistema responde: 


NITEROI CARO FRIO 


Teste do fla 44 armiivo 1º 
Fosicao do EOF + 189 
Posicão da sreximo restatra * 14 
Posicao do uÍtino revistro acessado 2 149 
Vamos ler este registro novamente, utilizando o FP (File 
Position), que posiciona o arquivo no início do último registro 
acessado: 


GET 1.0. .C8.D81 = 7 C8.De £ GOTO 3 


Teremos então: 


NITEROI CARO FRIO 
Teste de fim de arquivo 10 
1 189 





amtr 
Povicas do ulbieo cesiatro ecassado * 149 


É importante observar que as posições do próximo registro 
e do último registro acessado não se alteraram. Façamos agora 
a leitura do segundo e quarto campos do próximo registro. Ob- 
serve os nulos entre as vírgulas, indicando que o campo cor- 
respondente deverá ser pulado: 


GET 1ecooNK--NOE E 7 NX-NO 3 GOTO 1 


O sistema responderá: 


s 33. 00000000001 

Teste de fim de arauivo 1-1 
Posicao do EDF : 189 
Posicao do oroximo resistr: 189 
Posicao do ultino resistro acessado 1 168 
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5249 4F20 4445 ZO4A 414E 4549 524F o. RIO. DE. JANEIRO 
ZA ZAZA ZAZA ZAZA ZAZA ZAZA ZAZA ea.» errar 

A ZAZA ZAZA ZAZA ZAZA ZAZA ZAZA DADA eme+ 
JO ZAZA ZAZA ZAZA ZAZA ZAZA ZAZA ZAZA DADA soteeaor amais 


ZAZA ZAZA ZAZA ZAZA ZAZA ZAZA ZAZA DADA sementes 


ZAZA ZAZA ZAZA ZAZA ZAZA ZAZA DADA DADA setmtinsrntnta 
ZAZA ZAZA ZAZA ZAZA ZAZA ZAZA ZAZA DADA eme imat ams 
ZAZA ZAZA E ZAZA ZAZA ZAZA ZAZA DADA memestenimeneima 


ara asas rever. NITEROL. c 
330 Z21F 0073 ABO.FRIDO.30r. . 
BO 1R00 0086 74FB 2800 0000 0004 B800 0005 ....t.+.. 
0000 0000 0000 0000 0000 0000 0000 .. 
0000 0000 0000 0000 0000 0000 0000 0000 
0000 0000 0090 0000 0000 0900 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 .. 





Figura 1 


É importante observar que acabamos de ler o último re- 
gistro do arquivo, pois a posição do EOF é igual à posição do 
próximo registro (189). Outro modo de verificar isso é através 
do resultado do teste de fim de arquivo, que está indicando 
—1 (verdadeiro). Vamos então retornar ao início deste registro 
para ler os seus outros dois campos: 


GET 1.0. .NO..N'E + 7 NS.Nº 4 GOTO 1 
A resposta será: 
3532.0001 
Teste de fin de arquivo += 
Posicao do EOF RE 
Posicas do eroxino resistro 199 


Posicao do ultimo resistro acessado : 165 


O que aconteceria se tentássemos ler mais um registro? 
Vamos ver: 

GET 1.--AS 1 7 AS 4 GOTO 1 
END OF FILE ENCOUNTERED 
INPUT PAST END 

Aconteceu o que era de se esperar. 

Vejamos agora outra técnica de posicionamento de arquivo. 
Pela análise do arquivo com o SUPERZAP vimos que o tercei- 
ro registro começava na posição 95H (149 em decimal). Digi- 
te então: 


GET 1.:149..B8.DS: + 7 ES.DS + GOTO 1 
O sistema responderá: 
NITEROI CARO FRIO 
Teste de fim de arquivo 10 


Posicao do EOF 1109 
Posicao do proximo resis 168 
METER daicit imo ron inaro ecussado 1 16% 


A utilização de valores determinados de RBA (Relative By- 
te Address), seja um número, o conteúdo de uma variável ou o 
resultado de uma expressão, fará com que este valor seja trans- 
ferido para o ponteiro do próximo registro. Isso nos permite 
acessar o arquivo de forma randômica, bastando para isso ar- 
mazenar os RBA dos registros num vetor e acessá-los através 
dele. Digite o programinha a seguir, listagem 3, e dé um 
RUN 100. Não apague as linhas 1 a 5 que já estão na memória 
do pad pois continuaremos a utilizá-las. 


100 OPEN “Rº. 1. "EXEMPLO/MU", “MU” 
101 1 = 0 

102 1 = et 4 GET 1 + RECI) = LOC(1)A "pesa o REA do ultimo resistro acessado 
103 IF NOT LOC(1)8 THEN 102 "verifica se ja chesou ao fim do arquivo 

104 CL 


de resistros no arquivo 1º+ 
Ceonsca no ABA: RBCI) + NEXT 


105 CLS + PRINT "Numero 
106 FOR J = 1 TO 1: PRINT “Resistro"! Jt 
107 END 


Com o RUN 100, o sistema responderá: 


Musero de resistros no arauivo + 4 


Resistro 4 comeca no REA 168 


Em arquivos de verdade não se esqueça de dimensionar o 
vetor onde serão armazenados os RBA. Neste caso não foi pre- 
ciso, pois sabíamos que o arquivo tinha menos de 10 registros. 
Não é necessário dimensionar vetores com menos de 10 ele- 
mentos. 

Vejamos agora alguma coisa de gravação em arquivos MU. 
Como você já deve ter imaginado, a alteração dos registros 
existentes ficará condicionada a que o comprimento do novo 
registro (incluíndo os bytes marcadores), seja igual ou menor 
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ao registro já existente. Vamos então abrir o arquivo e alterar 
o primeiro registro: 


1 NOVO RIO"? 


O sistema responderá: 


de fim de arauiy 





Perceba que aconteceu o mesmo quando fizemos um GET 
no primeiro registro. Vamos agora dobrar o valor armazenado 
no terceiro campo do quarto registro (o valor real de precisão 
simples 32.0001), para exemplificar a leitura/gravação parcial 
de registros. E também aproveitar o vetor RB, que não deve 
ter sido apagado da memória. 





Eis a resposta: 





Novamente nos encontramos no final do arquivo. Vamos 
estendé-lo. Digite: 


A resposta: 


1 
Dt 

: 206 
acessado + 189 





Será que nosso arquivo foi relamente estendido? Na realida- 
de ainda não, pois a string Último Registro ainda está no 
buffer do arquivo, na memória do computador, e só será gra- 
vada quando dermos o próximo PUT ou GET ou fecharmos 
o arquivo. Para forçar a gravação deste registro podemos uti- 
lizar o comando PUT 1,& mas o diretório ainda estará desa- 
tualizado. Para forçarmos a gravação do registro e a atualiza- 
ção do diretório, antes que alguma queda de luz o prejudique, 
basta darmos um PUT 1, && e ele estará então atualizado. 

Vamos agora ao segundo registro (a string de 130 asteris- 
cos), alterando-o com alguns campos menores: 


TRINGS (40, “AP 1 STRINGS (40, "E 





Resposta do sistema: 





E se tentássemos colocar mais uma outra string de 40 ca- 
racteres neste registro? Vamos tentar, mas antes, atualizemos 
o arquivo: 


atualiza rio no disquete 


1 1 > arquivo e o diret 
PUT 1.0, - STRINGS (4 ++ GOTO 1 


RECORD QVERFLOW 


É... estourou o registro. Mas será que pelo menos uma par- 
te da string foi gravada? Feche o arquivo (CLOSE), saia do 
BASIC (CMD“S”) e volte a examinar o arquivo com a opção 
DFS do SUPERZAP (figura 2). Observe que além dos bytes 
SOR nas posições 00H, 10H, 95H e A8H, que já existiam an- 
teriormente, temos agora um outro SOR na posição BDH, cor- 
respondente ao registro que foi adicionado ao arquivo. Veja 
agora o primeiro registro. O byte marcador (88H) indica uma 
string com 8 bytes de comprimento (88H-80H — 08H). Per- 
correndo 8 bytes, a partir do início da string NOVO RIO 
encontramos uma sequência de bytes 00. Estes bytes são 
utilizados como enchimento pelo sistema, já que NOVO 
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RIO tem um comprimento menor que RIO DE JANEIRO, 
anteriormente gravada. 

No registro seguinte vemos as strings de 40 Aº's, B's e C'se 
logo após uma nova segiência de 00, indicando que a string 
de 40 letras D que queríamos gravar não foi transferida para o 
arquivo nem ao menos parcialmente. No NEWDOS/80 um 
erro durante a execução de PUT/GET faz com que os dados 
do registro não sejam transferidos e que a posição atual do ar- 
quivo não se altere. 

No próximo registro temos a string 30, o número inteiro 
31 (1F 00 na representação binária), o real 64.0002 (14 00 
00 B7) e a seguir zeros. O valor 33.00000000001 (precisão 
dupla) simplesmente foi apagado do arquivo. Isso mostra O 
cuidado que devemos ter na alteração parcial de registros, pois 
tudo o que vier após o último campo gravado será perdido. 


ARQUIVOS TIPO MF 


Na primeira parte deste arquivo você conheceu as caracte- 
rísticas dos arquivos MF. Todos os seus campos são marcados 
do mesmo modo que nos arquivos MU. E todos os registros 
têm o mesmo comprimento, definido na abertura dos arquivos. 

Assim como nos arquivos MU, os registros MF podem ser 
alterados, não sendo obrigatório manter o mesmo número, 
tipo ou comprimento dos campos do registro original. A única 
orientação a obedecer é o comprimento máximo do registro. 

Utilizando a mesma técnica dos arquivos MU, vamos exe- 
cutar algumas instruções com arquivos MF. Comecemos di- 
gitando o seguinte programa da listagem 4: 





Execute o programa, criando desta forma o arquivo Exem- 
plo/MF. Saia do BASIC e chame o SUPERZAP, analisando o 
setor O do arquivo (figura 3). Imediatamente sentimos a au- 
sência dos bytes 70H (SOR) no início dos registros, já que ar- 
quivos MF não utilizam o byte SOR, pois o comprimento dos 
registros é fixo e conhecido pelo sistema operacional. E me- 
diante uma simples operação aritmética do tipo: (número do 
registro — 1) * comprimento dos registros; o próprio DOS de- 
termina o RBA de qualquer um, do mesmo modo que nos ar- 











494F 0000 0000 0000 p.NOVO.RIO...... 
4141 4141 4141 4141 D.ABAAAAAAAARARA 
4141 4141 4141 4141 ARARAAAAAAAAARAA 
4141 AB42 


s64r 
a141 
4141 


2052 
a141 
4141 


















MICRO SISTEMAS, março/85 


» 
= 


Filiada a ABICOMP 


ê 





Nunca 
compre uma 


coisa que você 
Não Val USaL 
















Leve logo um microcomputador 
g TK 85, porque ele é realmente fácil de 
usar: já vem com manual de instruções, 
que ensina,em português claro, 
a linguagem Basic. 
A partir daí, você pode preparar 

seus próprios programas ou utilizar as 
centenas de programas que já existem 
no mercado, para cadastrar clientes, controlar 
estoques, manter em ordem o orçamento 
familiar, fiscalizar a conta bancária, estudar 
matemática, estatistica, jogar xadrez, guerra 
nas estrelas, e o que mais você puder imaginar. 
E além disso tudo, o TK 85 tem 
também o preço mais acessível do mercado. 
Peça uma demonstração. 


K 85,0 micro que você pode usar 


computadores pessoais 
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quivos Field Item (FI), com a vantagem de aceitar registros 
muito maiores, de até 4095 bytes de comprimento. 

No início do setor encontramos os três campos do primeiro 
registro (CAMPO 1, CAMPO 2 e CAMPO 3) precedidos pelos 
bytes marcadores (86H, 87H e 8AH, respectivamente). Logo a 
seguir, temos quatro bytes 00, utilizados para enchimento do 
registro. Depois temos uma string de 29 asteriscos, que é o ta- 
manho máximo permitido para gravação de strings neste ar- 
quivo (lembre-se que o byte marcador está ocupando 1 byte 
do registro). Finalmente encontramos os três valores numéri- 
cos gravados na linha 6 do programa. Não é fácil identificá-los, 
já que estão na sua representação binária. 

Retorne ao BASIC e digite as seguintes linhas do programa, 
(listagem 5), ou então altere a listagem 2. Não dê RUN após a 
digitação: 


1 PRINT 






de fim de arquivo "1 LOCCS 








2 PRINT do EOF "+ LOCti% 
É PRINT “Posicas do eroximo resistro + toctt 
4 PRINT “Ultimo resintro acessado e". LOCt1> 
S PRINT "Posicao do ultimo resistro acessado +º1 LOC(I)8 
é sto 
Agora digite: 
OPEN “Re, 1. EXEMPLO/ME, “MES, 30 + GOTO 1 
O sistema deverá responder: 
10 
190 
Posicao do »roximo resistro 10 
Ultimo resistro acessado 10 
: 


Posícao do ultimo resistro acessado 
BAD FILE MODE in 5 


Os resultados são análogos aos do pe MU. Como curio- 
sidade podemos notar que enquanto a função LOC( ) funcio- 
nou perfeitamente, devolvendo o último registro acessado, a 
função LOC( ) * , que retornaria o RBA deste registro, 
resulta em erro, feito qualquer acesso ao arquivo. Vamos ler 
então os dois últimos campos do primeiro registro do arquivo: 


GET 1.0 cAS.RSS 1 7 AS.BS + GOTO 1 


Teremos como resposta: 


camen 2 
Teste de fim de arquivo 3 
Posicao do EDF ) 
Pnsicao do proximo resistro 130 
Ultimo resisto acessado 1 
Posicao do ultimo resistro acesmado + 


CAMPO NO.3 





Devido ao campo nulo entre a terceira e a quarta vírgulas, 
indicando que ele deverá ser pulado, somente o segundo e o 
terceiro campos foram lidos. Vamos retornar ao início do re- 
gistro e ler os dois primeiros: 


GET 1.0. -AS.BS! 1 7 AS.BS 3 GOTO 1 


Teremos então: 


campo! campo 2 
Teste de tim de arquivo 10 
Poxicao do EDF : 90 
Posicas do erovima resistro 230 
Ultimo resistro acessado 11 
Posican do ultimo resistro acessado £ O 


Do mesmo modo que nos arquivos MU, nós podemos ainda 
nos MF continuar a ler o registro do ponto onde foi interrom- 
pido: 


BET 1.*..08: $ 7084 GOTO 1 


O sistema responderá: 





Ultimo resistro acessado 
Posicao do ultimo resistro acessado 


10 
+90 
Posicao do srésino resistro 1 30 
a 
o 
Vejamos agora outros métodos de posicionamento do ar- 
quivo. Como os registros são todos do mesmo tamanho, po- 
demos acessar qualquer um deles através do seu próprio nú- 
mero: 
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BET 1.3.0 NG.NSANZE E 2 NOSNSANX ! GOTO 1 


Teremos como resposta: 


10000, 000001 100,001 10 
Teste de fim de arquivo 
Fnsicao do EDF 
Posicao do oroximo resistro 
Ultimo resistro acessado 3 
Posicao do ultimo resistro acessado ! 60 


o 
so 
so 


Poderíamos ainda acessar o mesmo registro através do seu 
RBA. Entretanto, não é necessário empregar um vetor dos 
RBA como nos arquivos MU, já que podemos calcular a posi- 
ção dos registros facilmente: 


NR = TE GET De SUNR-LDOTO. «VOS VI AVE E 7 VM VIVE GOTO 1 


O sistema responderá: 


10000. 000001 
Teste de (im de 
Postcao do EOF 
Posicao do eroximo resistro 
o acessado 
Posiceo do ultimo resistro acessado ! 60 





«ggo 





Agora vejamos alguma coisa sobre alteração de registros em 
arquivos MF. Execute a seguinte linha de instruções: 


As = "es PUT 3.1». A8! 4 GOTO 1 


E teremos: 


Teste de fim de arquivo ' 
Posicao do EOF : 
Posicao do eroximo resistro 1 
Ultimo revistro acessado : 
Fosicao do ultimo revistro acessado | 


o-gao 





Certamente o primeiro registro foi alterado, mas o que será 
que foi gravado? Apenas um byte 80H, indicando que a seguir 
há uma string nula, ou seja, nada existe à frente. Como o re- 
gistro tem 30 bytes, ainda sobram 29. Vamos prosseguir à 
gravação neste registro: 


PUT 1... CARARANARAAS! + GOTO 1 


O sistema responderá: 


Teste de fim de arquivo 1 
Posicao do EDF 1 
Posicao do proximo resistro 1 
Ultimo resístro acessado 1 
Posicao do ultimo revistro acessado + 


o-ugo 


Então, 29 menos 11 (10 bytes da string mais 1 byte marca- 
dor) = 18. Isto quer dizer que podemos ainda gravar uma string 
de até 17 caracteres. Vamos lá: 


PUT 1.0. STRINGS(17,"8")t + GOTO 3 


O sistema deverá responder: 


Teste de fin de arauívo 
Posicao do EOF 

Posicao do eroximo 
Ultimo resistro aci 
Posícao do ultimo 


Tudo correu bem. Para finalizar, vamos acrescentar mais 
dois registros ao final do nosso arquivo: 


PUT 101%. "PENULTIMO REGISTRO (4)"1 "posiciona no fim de arquivo m erava 
PUT 1.» "ULTIMO REGISTRO (5)*t + GOTO 1 


A resposta será: 


Teste de fim de arauivo 11 










o=ugo 


1 
. 
astro 1 
jo 1 
tro acessado * 








Fosicao do EOF + 150 
Posicao do eroximo resistro + 150 
Ultimo resistro acessado 1s 

Posicao do ultimo resistro acessado ! 120 


Feche o arquivo e analise-o com o SUPERZAP (figura 4). 


4141 4141 9124 2424 

2424 2424 2424 GD2A sSsUsssssassss.= 

ZAZA ZAZA ZAZA ZAZA stretototoms 

ZAZA ZAZA ZADE 1843 wrmnrmmmnaet. 
0000 0000 ..D..8.«HeFeremu 
4S4E 554C .... ... 
4F20 2854 TIMO.REGISTRO. (4 
494D aF20 «ULTIMO. 
000 0000 é 
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Os registros do arquivo começam nas ções 00H, 1EH, 
3CH, 5AH e 78H (0,30, 60,90 e 120 em deciinal). Na posição 
00H o byte 80H indica uma string nula e na posição 01H o 
byte 8A indica uma string de 10 bytes de comprimento (as 
10 letras A). Logo após a string temos o byte 91H apontando 
a string de 17 cifrões. A partir da posição 1EH temos o byte 
marcador e a string de 29 asteriscos preenchendo completa- 
mente o registro. A partir da posição 3CH temos os três va- 
lores numéricos que foram gravados. Observe neste e nos dois 
últimos registros a utilização dos bytes 00 para preencher o 
registro até completar os 30 bytes. 


ARQUIVOS TIPO MI 


As principais características que diferenciam os arquivos 
MI dos MU e MF é que não podem ser alterados e não distin- 
guem registro de campo, já que não existem bytes SOR e nem 
informamos ao sistema o tamanho dos registros. Estas dife- 
renças restringem bastante a utilização dos arquivos MI, que 
servem geralmente como meio bastante compacto de armaze- 
namento temporário de dados. 


Arquivos MI apenas são gravados, lidos ou expandidos, não 
podendo ser alterados. O acesso a seus registros ou campos, já 
que não há distinção, pode ser feito de forma sequencial ou 
randômica. Para treinarmos um pouco a utilização desse tipo 
de arquivo, digite o programa a seguir (listagem 6) ou então 
altere a linha 2 da listagem 1: 








1 
3 PU 

4 PU esp 

Ss PU NITEROI”, “CABO FRIO”! 

6 Va = “30” a Vim 314 V! = 32.000! ! VE = 27.00000000001 
7 PUTOL O co VSo Vi Vo VM 

8 CLOSE 


Execute o programa e analise o setor O do arquivo criado 
com o auxílio do SUPERZAP (figura 5). Imediatamente, 
observamos que não há bytes SOR nem aquela profusão de 
bytes de enchimento. A estrutura e controle do arquivo es- 
tão sob responsabilidade do programador. Para acessá-lo se- 
quencialmente é preciso saber que tipo de campo está sendo 
lido. Na forma randômica é necessário conhecer também os 
RBA dos bytes marcadores dos campos do arquivo. 


«RID.DE. JANEIRDOa 
tt otttttotottos 
erram meta 
errei 
erre meta 
nora tt tomo 
rem mttt 
cemeerer neem 


2ES2 494 


eee ator 
me+. NITEROI. CABO 


Figura 5 

Ainda examinando o arquivo, vemos que, de acordo com o 
programa, nós gravamos cinco strings, um valor inteiro, um 
real de precisão simples e outro de precisão dupla. Os bytes 
marcadores destes campos estão localizados nas posições 
00H, OFH, 93H, 9BH, ASH, ASH, ABH e BOH. Retorne ao 
BASIC e digite novamente as linhas da listagem 2 utilizadas no 
arquivo MU. E depois as instruções: 


OPEN "1%, 1. “EXEMPLO/MI". “MI”: GOTO 1 


Resposta do sistema: 


Teste de fim de arquivo 

Posícao do EDF 

Posicao do proximo resistro 
Posicao do ultimo resistro acessado 
BAD FILE MODE “in 4 
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Idêntico ao ocorrido com o arquivo MU. A diferença está 
na posição do EOF (185 em vez de 189) devido à ausência de 
bytes SOR. Como o sistema não distingue registro de campos 
neste tipo de arquivo, vamos tentar ler de uma só vez vários 
registros: 

GET 1... AS. (IMBS.CO.DO: = 7 AS.D8.C8.D8 + GOTO 1 


A resposta deverá ser: 


FIO DE JONEIRO cemeeneres 
Teste de fim de arquivo 
P o do EOF 


CARO FRIO 











Posicao do eroxim 
Posicao do ultimo rmssstro acessado * 





Observe que a função LOC( ) & |, indicativa da posição 
do último registro acessado, devolveu o valor O. Isso porque 
o sistema entendeu todas as variáveis lidas como campos de 
um só registro, no caso, o primeiro do arquivo. Vamos abri-lo 
de outra forma. Digite: 


CLOSE + DEEN “ES,1.CFXEMPLO/MICSSMIS + GOTO 1 


Teremos a resposta: 


Teste de fim de arausvo 1 
Posicao do EDF : 185 
Posicao do erouimo resistro * 185 
Posicao do ultimo reststro acessado ! 

BAD FILE MODE in 4 


O arquivo agora está aberto para gravação a partir de seu 
último registro. Vamos estendêllo, gravando alguns valores 
numéricos: 


PUT 1.--10,20.30t 4 GOTO 1 


O sistema responderá: 


Teste de fim de arquivo 1 
Posicao do EOF 1 194 
Posicao do eroximo resistro 1 194 
Posicao do ultimo resistro acessado ! IRS 





Veja que o EOF agora está 9 bytes mais longe, e o REMRA 
tem o valor da posição anterior do EOF. Em arquivos MI, já 
que registros e campos não tém distinção, o REMRA é sempre 
igual ao REMBA (Remembered Byte Address) e ambos são 
iguais à posição do arquivo no início da transferência de dados 
no PUT ou GET. 

Coloquemos agora o arquivo no modo randômico, aces- 
sando o quarto registro através do seu RBA. Vejamos: 


CLOSE 1 OPEN “Rº, 1, "EXEMPLO/MI”. "MI" 
GET 1. 'LM9B.. AS! 1 7 AS + GOTO 1 


Resposta do sistema: 


Capo FRIO 


ro 
1 194 
: 108 
Postcao do ultimo resistro acessado + 15% 





Agora, o próximo registro é a string 30 gravada na linha 6 
da listagem 6. Vamos ler tudo o que foi gravado nesta linha: 








GET 1..eMecariar MO + 7 ASLAX LAIO + GOTO 
Teremos, então: 
zo 32.0001 =>, 00000900001 
Teste de fim di auivo 10 
Posicao do EOF + 194 
Posicao do sroximo resistro . 185 
Posicao do ultimo resistro acessado ! 165 


Para demonstrar que nos arquivos MI o REMRA e o REM- 
BA têm sempre o mesmo valor, execute as instruções: 


est tm. 
GET 1.8. 






st : 7 A6: GOTO 1 
Sr: PAS: GOTO 1 


Nos dois casos o sistema responderá: 


zo 
Teste de tim de arquivo 
Posicao do ENE 

Fosicao do eroxtmo restetro 
Posicao do ultimo resistro acessado * 





Dê um CLOSE e analise o arquivo com o SUPERZAP (figu- ,, 


ra 6). Já que não foi possível fazer qualquer alteração nos re- & 
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BES2 494F 2 3FZ4 .RIO.DE.JANEIROa 
BS2A ZAZA DATA resort menoraçto 
ZAZA ZAZA DADA erre 
ZAZA 2AZA DADA enem msm 
ZAZA ZAZA DADA commecrerrames 
ZAZA ZAZA DADA emremrrentaenro 
ZAZA 2A2A DADA eres 
ZAZA 2AZA DADA ermetna es tornto 
ZAZA ZAZA DADA remeter 
ZAZA 2487 424F +++. NITEROI. CABO 
2046 5249 0086 .FRIO.3Or. 5 
0072 t.+. 





Z4FB 2800 72 72 
1E00 0000 0000 .. 
0000 0990 0000 
0000 0000 0000 
0000 0000 0000 . 





Figura 6 
gistros, a única diferença é a presença dos três campos grava- 
dos ao final do arquivo nas posições B9H, BCH e BFH. 


ARQUIVOS TIPO FF 


Como foi dito na primeira parte deste artigo, há muitas 
diferenças entre arquivos tipo Marked Item (MI) e Fixed 
Item (FI). Neles não existem bytes marcadores, pois a des- 
crição dos campos é feita pelos IGEL. Por isso é muito fácil 
uma leitura errada de dados, sem que o sistema acuse qualquer 
tipo de erro. Por exemplo, se o arquivo estiver posicionado 
numa string e tentarmos ler uma variável numérica inteira, os 
dois primeiros bytes da string serão transferidos para a memó- 
ria como se fossem os dois bytes do número inteiro, com re- 
sultados certamente desastrosos para o programa. Outra di- 
ferença é que nos IGEL podem aparecer somente nomes de 
variáveis (não mais constantes ou expressões), sendo o prefixo 
(LEN) obrigatório nas variáveis string. Finalmente, a terceira 
diferença é que os arquivos tipo Fixed Item podem ser altera- 
dos utilizando leitura/gravação parcial de registros, sem que o 
campo alterado influencie os campos que estiverem logo a 


seguir. Lembre-se de quando perdemos o número de precisão, 


dupla no arquivo MU. 

O subtipo FF apresenta a característica de ter todos os re- 
gistros do mesmo comprimento, declarado durante a abertura 
do arquivo, como no MF. Vamos experimentar alguns coman- 
dos digitando o seguinte programa (listagem 7): 





“EMEMPLO/FF”. "EF 











SISTEMAS” 
4 PUT 1.» (3O)NOE 

S NS = STRINGSTO, +) 

+ Pur SONS? 

7 NX = VN! = 12345.6 3 NO = 12345.6709 
8 PUT Nº NOT 


9 CLOSE 


Execute o programa e analise o arquivo criado com o 
SUPERZAP (figura 7). Para facilitar a identificação, marca- 
mos com colchetes o início e o fim dos registros. 


[sDa9 4352 ar20 5354 454D 4153 2020 MICRO.SISTEMAS. . 
2020 2020 2020 2020][2A2A 
ZAZA DAZA DADA DADA ZADA semestre 
ZAZA 2 ZAZA ZAZAJÍI9IO 66E6 eemerererneçor, 
4OSE 04C5 BFZ 4DBE] 0000 0000 0000 3... .1..d. 
9090 0090 0000 0000 0000 0000 0000 + 
O 0000 0900 0000 0000 0900 0000 0900 
0000 0000 0000 0000 0000 0000 
0909 0000 9000 0000 0000 





0000 0000 0000 0000 
0090 0000 0000 


O 0000 0000 0000 0000 

0 0000 0000 

0 0000 E 0000 0000 

o 0000 O 0000 0000 
0000 0 0000 0000 0 





No início do setor, encontramos a string que foi gravada: 
MICRO SISTEMAS, mais 16 espaços (20H). Eles aparecem 
como resultado do IGEL da linha 4, onde se declarava que 
N$ deveria ser gravado com 30 bytes. O sistema se encarre- 
gou de completar N$ com espaços à direita até completar os 
30 bytes desejados. No segundo registro (posição 1EH) está a 
string de 30 asteriscos e, no último registro, as três variáveis 
numéricas gravadas. Se não conhecêssemos o programa que 
criou o arquivo seria completamente impossível saber que a 


58 


partir da posição 3CH temos três valores numéricos gravados, 
pois nada no arquivo indica isso. 


Retorne ao BASIC e digite novamente as linhas da listagem 
5 utilizadas no arquivo MF. E depois as instruções: 


CLEAR 1000 1 OPEN “I*,1. "EXEMPLO/FF*.“FFN.3O 3 GOTO 1 


O sistema responderá: 





Teste de fim de arquivo : 
Posicao do EDF 1 
Posicao do eroximo resistro : 
1 
: 





ultimo resistro aci 
Posicao do ultimo re 
BAD FILE MODE tn 5 






Como era esperado, o sistema está posicionando o arquivo 
para processar o primeiro registro. Novamente a função 
LOC( ) & provocou erro. Para ler o primeiro registro, 
digite: 


GET Loss CSONSE 4 7 LENGNOM. 9 + GOTO 1 
A resposta será: 
30 MICRO SISTEMAS 


Teste de fim de arquivo 10 
Posicao do EOF 190 
Fosicao do eroximo resistro 130 
Ultimo resistro acessado 11 

Posicao do ultimo resistro acessado ! O 


Conforme indica o resultado da função LEN, 30 caracte- 
res foram transferidos para a variável string N$. Veja agora 
como é fácil lermos apenas parte de uma string: 





GET 1r0» (SPAS: LIONES, (ISICOS 4 2 AS. B8.C8 + GOTO 1 
A resposta: 
s To 
Ensicao do EOF 190 
Posicao do sroximo resistro 40 
Ultimo resistro acessado 12 


Posicao do ultimo resistro acessado t 30 


Outra facilidade que o sistema nos oferece é a flexibilidade 
de pularmos bytes em um registro, de forma a lermos apenas o 
que for desejado. Vamos então ler o terceiro campo do tercei- 
ro registro (o valor de precisão dupla), pulando o valor inteiro 
(2 bytes) e o real de precisão simples (4 bytes): 


GET decr (bIS.NOS 2 O NO: GOTO 1 


Teremos como resposta: 


127245. 6789 
Teste de fim de arauivo = 
Fosicao do EDF 

Posican do eroximo 
ultimo resistro aces: 
Posição do ultimo ri 









Outra flexibilidade oferecida pelo arquivo FF é o acesso a 
um registro por seu número, como nos arquivos FI e MF, já 
que o sistema conhece o comprimento de cada um deles. Digi- 


te: 
GET LB (TOA + 2 AS 4 GOTO 1 


A resposta será: 


Teste de fim de arquivo : 
Posicao do EOF : 
Posicao do proximo resistro t 
Ultimo resistro acessado :+2 
Posicao do ultimo resistro acessado : JO 


1820 


Vamos agora colocar o arquivo no modo randômico, fazen- 
do algumas alterações nos seus registros. Para isso, execute as 
instruções abaixo: 


CLOSE 1 OPEN “Rº,1, "EXEMPLO/FE*.“FF“.30 + GOTO 1 


O sistema responde: 


Teste de tim de arquivo : 
Posicao do EDF : 
Posicao do eroximo resistro : 

: 


s042 


Ultimo resistro a jo 
Posicao do ultimo resistro acessado 
BAD FILE MODE to 5 


Vamos então alterar o primeiro registro, adicionando uma 
string ao fim de MICRO SISTEMAS: 





As = “ANIVERSARIO” : PUT 1.1.» (15)8, (LIDAS! * GOTO 1 
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A resposta será: 





E agora, que tal uma alteração no meio de um campo? Va- 
mos tentar o segundo registro: 


Be = STRINGSCIO.COM) É PUT 1.7. 01078. (10/88! * GOTO 1 


Teremos como resposta: 


2º 





ne 


imo resistro 
o acessado 
o ultimo resistro acessado + 30 


Como abrimos o arquivo no modo R, podemos também 
adicionar registros: 


BM = “OUINTO REGISTROS + PUT 1.5.0 (30/A8! 1 GOTO 4 
O sistema responderá: 


1 
+ 150 
+ 150 
.s 





Observe que o quarto registro foi completamente ignorado. 
Para manter a organização do arquivo, o próprio sistema se 
encarrega de gravá-lo com nulos (bytes 00H) antes de gravar 
o quinto, como foi especificado. 


041 MICRO. SISTEMA 

JDAZA NIVERSARI 

2424 correr 

bob Sementes 

0000 3 1..3 

00 0000 

000 0000 O 0000 0000 0000 
0000 0000 0000 0000][5155 sasr 
4F20 2020 2020 2020 
0000 
0000 O 0000 0000 
9000 
0000 000 0 00 9000 0000 
0000 0000 O O 0000 
O 0000 0000 0000 0000 
0900 0000 0000 0000 0000 0000 





+ QUINTO.R 





Figura 8 


Feche o arquivo e analise o primeiro setor com o SUPER- 
ZAP (figura 8). Lá está a string ANIVERSÁRIO após MICRO 
SISTEMAS (primeiro registro) e a de 10 cifrões bem no meio 
da string de asteriscos, originalmente gravada no segundo re- 
gistro. Na posição 78H encontramos o registro adicionado 
(QUINTO REGISTRO). 


-ARQUIVOS TIPO FI 
Do mesmo modo que no Ml, o arquivo FI não faz divisão 


entre os registros (e nem entre os campos, já que pertence à 
classe de arquivos Fixed Item). Entretanto, oferece a vanta- 


gem de poder ser alterado, o que o faz um pouco mais pode- 
roso que os arquivos MI. Como exemplo, digite o seguinte 
programa (listagem 8): 


CLEAR 1000 
OPEN "0". 1. "EXEMPLO/FIC. “FI” 

As = “PRIMEIRO REGISTRO” + AX = 12 A! = 1.11 A8 
- CLBIRE CALA? 
REGISTRO DO 
+» (16188, 









21D!=2.21: 84 = 





PUT 


1 
N 
& 
7 CLOSE 





Observe que gravamos dois registros com formatos idênti- 
cos: uma string de 16 caracteres, um valor numérico inteiro, 
um real de precisão simples e outro de precisão dupla. Embora 
não seja obrigatório gravarmos registros com estruturas seme- 
lhantes, este é o modo mais fácil de mantermos controle to- 
tal sobre o arquivo, pois é muito fácil cometermos erros de po- 
sicionamento, sem que o computador acuse mensagem de 
erro. 


asa9 soar 
o o 
[749 5354 
fepcc)focez 
0000 
0000 0000 

0900 000 

0000 0000 0000 

0000 0000 0000 0000 0000 

0000 0000 0000 0000 

0000 O 0000 0000 0000 0000 

0000 0000 0000 0000 000 
0000 0000 O 0000 0000 

0000 0000 2 0000 0000 0000 
0000 0000 0000 0000 0000 0000 
0000 0000 0000 0000 0000 0000 . 





0000 








Chame o SUPERZAP para analisar o arquivo (figura 9). Lo- 
go notamos que a string PRIMEIRO REGISTRO teve o úl- 
timo O truncado, já que no IGEL especificamos a gravação 
de 16 caracteres e a string A$ tinha 17. Já no segundo registro 
observamos que o sistema adicionou espaços (20H) ao final 
da string REGISTRO DOIS, até completar 16 caracteres 
indicados no IGEL. Os valores numéricos foram gravados sem 
problemas. 

Digite as linhas da listagem 2 utilizada nos arquivos MU. 
Depois execute: 


LEAR 1000 : OPEN “Rº,1.“EXEMPLO/EI" “FI” 2 GOTO 1 


O sistema responderá: 


Teste de fim de arquivo : 
Posicao do EDF : 
Posícao do proximo resistro 10 
Posicao do ultino resistro acessado ! 
PAD FILE MODE sn & 





Como era de se esperar, o arquivo está posicionado de ma- 
neira que o próximo PUT ou GET comece o processamento 
no primeiro byte do arquivo. Como conhecemos a estrutura 
dos registros que foram gravados, vamos tentar ler o primeiro 
e terceiro campos do primeiro registro: 


GET tece VIGAS DIS LAIS 2 T ASA! E GOTO 3 





SUPRIMENTO É COISA SÉRIA 


e Matenha o seu computador bem alimentado adquirindo produtos de qualidade consagrada. 
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RBATIM 
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* Discos Magnéticos: 5 Mb, 16 Mb, 8 Mb, etc. 

* Fitas Magnéticas: 600, 1200 e 2400 pés 

* Fitas CARBOFITAS p/lmpressoras: Globus, M 100/200 - B 300/600 - Elebra 
« Fitas p/Impressoras: Elgin, Epson, Digilab, Diablo, Elebra-Alice. 

* Cartucho Cobra 400 





AV. PRESIDENTE VARGAS Nº 482 GR. 201/203 Tel.: KS (021) 2531120 





ARQUIVOS EM DISCO DO NEWDOS/80 


A resposta: 


PRIMEIRO REGISTA 1.1 
Teste de fim de arquivo : 
Posícao do EOF : 
Posicao do oroximo resístro : 
Posicao do ultimo resistro acessado ! 


ão 
= 
o 

Observe que pulamos o valor inteiro simplesmente especi- 
ficando o elemento (2)$ no IGEL. Note também que o pon- 
teiro do próximo registro está voltado para O valor de preci- 
são dupla gravado logo em seguida. Do mesmo modo que os 
arquivos MI, os FI não fazem distinção entre campos € regis- 
tros. Nos do tipo FI não é indicado nem ao menos onde come- 
ça e termina um campo: o número de bytes transferidos vai 
depender do tipo de variável especificada no IGEL. Vamos ler 
o próximo registro. Como sabemos que foram gravados 30 by- 
tes no anterior, posicionaremos o arquivo através do RBA: 


BET 1! TO (IGAS ARA! SAMI E 7 ABALA! RA E GOTO 1 


O sistema deverá responder: 


n 
” 
» 


FEGISTRO DOIS 
2, 72000007861023 





Postceo do eroximo resistro 


1-1 

1 0 
140 
Posicao do ultimo resistro acessado ! JO 


Atenção. À primeira vista parece que fizemos alguma coisa 
errada, pois o valor de precisão dupla que gravamos era 2.22€ 
não o número que apareceu acima. O que aconteceu foi uma 
daquelas idiossincrasias do BASIC, pois quando fize- 
mos B & =2.22 foi armazenado na memória o número 
2.22000002861023, que foi corretamente gravado. Para evitar 
este tipo de coisa deveríamos ter feito B é = VAL(“2.22"”) e 
então gravado. Este é um cuidado que devemos tomar com 
números de precisão dupla em geral, e não tem nada a ver com 


arquivos. 
Vamos agora estender o arquivo. Mas antes de efetuar a 
transferência de dados abriremos uma lacuna de 30 bytes: 


As = “REG. 3 CAMPO 1º 1 BS = “REG. 3 CAMPO NUMERO 2º 
PUT Lev» (30)M (I4JAS, (16)B81 * GOTO | 


Resposta do sistema: 


Teste de fim de arquivo 1 
Posicao do EOF + 120 
Posicao do sroximo resistro + 120 
Posicao do ultimo resistro acessado + 60 


Vamos também alterar parte da string do segundo registro. 
Coloquemos uma letra K entre as palavras REGISTRO e 
DOIS, já gravadas: 


As = “k" 1 PUT 1,130, (BIS. (I)ASE 1 GOTO 1 


SO52 494D 4549 524F 2052 4547 4953 5452 PRIMEIRO. REGISTR 
0100 CDCC OC81 0000 0000 7E14 0EB1 5245 €e «RE 
4749 5354 524F 4B44 4F49 5320 2020 0200 GISTROKDOIS..... 
CDEC OC82 0000 0000 7B14 0EB2 0000 0000 . 
0000 0000 0000 0000 0000 0000 0000 0000 . 
0000 0000 0000 0000 0000 5245 472E 2033 . 
2043 414D S04F 2031 5245 472E 2033 2043 

414D SO4F 204E S54D 0000 0000 0000 0000 

0000 0000 0000 0000 0000 0900 0000 0000 . 
0000 0000 0000 0000 0000 0000 0000 0000 . 
0000 0000 0000 0000 0000 0000 0000 0000 . 
0000 0000 0000 0000 0000 0000 0000 0000 . 
0000 0000 0000 0000 0000 0000 0000 0000 - 
0000 0000 0000 0000 0000 0000 0009 0000 . 
0000 0000 0000 0000 0000 0000 0000 0000 . 
0000 0000 0000 0000 0000 0000 0000 0000 ... 











Figura 10 


60 





A resposta será: 


Teste de tim de arquivo a 
Posicao do EDF : 
Posicao do oroximo resistro : 
Posícao do ultimo resistro acessado * JO 





Feche o arquivo e analise-o com o SUPERZAP (figura 10). 
Lá pela posição 26H vemos a letra K gravada, sem que tenha 
sido afetado o restante da string. Observe a partir da posição 
3C uma sequência de 30 bytes 00, gravados antes da gravação 
do próximo registro, na posição SAH. Neste, note novamente 
que a segunda string gravada foi truncada à direita. 

Por ora é só. Longe de nossa intenção esgotar o assunto 
sobre arquivos em disco no NEWDOS/80 em tão poucas pági- 
nas (no manual original do sistema mais de 80 páginas são de- 
dicadas exclusivamente a este assunto). Há várias técnicas que 
não foram abordadas e que apenas as necessidades de cada um 
poderão ou não exigir. Entretanto, acreditamos que se você 
executou os exemplos apresentados (e certamente fez alguns 
erros quando digitou aqueles comandos cheios de vírgulas e 
ponto e vírgulas etc.), ao menos deve ter perdido o medo 
natural de se aventurar nestes novos tipos de arquivo. sa 


EM FITA 


O projeto MICROBUG, desenvolvido pela equipe do 
CPD de MS, foi criado para auxiliar o entendimento e 
a exploração dos recursos existentes nos micros da 
linha Sinclair. Sus construção, passo a passo nas 
páginas da revista, tem tido importância decisiva no 
aprendizado e desenvolvimento dos usuários na 

em linguagem de máquina. 

Devido ao enorme sucesso do MICROBUG, refletido 
nas inúmeras cartas que temos recebido, a ATI 
EDITORA LTDA. optou por oferecer a versão 
integral do MICROBUG. 

Para tal, foi contratado um estúdio especializado, 


Sim, desejo receber 


D a fita MICROBUG, pela qual pagarei Cr$ 20 mil + Cr$ 2.300,00 referente a 


despesas do correio. 
D os números atrasados de MS, pelos quais pagarei o preço de Cr$ 1 mil* por exem- 
plar. Me interessam as edições: [] MSn931 [1 Msn? 33 
D msno32 msmo 34 
TOTAL:Cr$ 


NOME: 
ENDEREÇO: 
CIDADE: 








embalagem 
Como a documentação do MICROBUG começou em 
MS nº 31, aqueles que adquirirem a fita terão a 
OPORTUNIDADE DE COMPRAR OS 
EXEMPLARES QUE NÃO POSSUAM POR UM 
PREÇO ESPECIAL. Aproveite esta chance e 
usufrua logo do MICROBUG em sua forma integral. 
Preencha o quadro ao lados mande já o seu pedido. 
TIRAGEM LIMITADA. 


CEP: 


Para tal, estou enviando um cheque nominal à; ATI Editora Ltda. (Projeto MICROBUGI 
Av. Presidente Wilson nº 165, grupo 1210 — Centro — CEP 20030 — Rio de Janeiro, RJ. 
* Despesas de reembolso excluídas 

0BS.: Os produtos acima podem ser adquiridos diretamente em nossos escritórios do 
Rio ou São Paulo sem despesas de correio. 





João Henrique Volpini Mattos é engenheiro naval e tem cursos de CP/M, 
Assembler e FORTRAN pela UFRJ, COBOL pela NUCEMPRO e tra- 
balha há quatro anos com BASIC. Possui um micro D-8002, com placa 
CPM. Atualmente trabalha em arquitetura naval no Estaleiro Mauá, 
utilizando um IBM 4341. 








Programe a linha H&M 






















alo 
cer KI , pára organizar o seu CPD, MANICA HAS 
DE RSA você censo cais procdas para copera e Ap IND. ECON LTD 
AM Us - pastas para 0 arquivamento de formulários cc ; arqui- SPECIAIS PARA LENURA DE 
vos; arquivos carinhos; Arkette” - arquivos para disquetes; me- de 
armários é : do Intogram, protegem e te: 


DIVENTERTO 


você já encontra na 


Ena HEM 6 deixe sei CPD bem organizado. 



















computer store 


O seu microcomputador CRAFT Il plus, 
pode agora ter acesso ao VIDEOTEXTO* - o 
banco de dados da TELESP, com imagens à 
cores, através de uma interface RS 232-C, um 
modem assíncrono e um software dedicado, 
à venda e em demonstração na SACCO. 


Torne-se um usuário do VIDEO-TEXTO, 
opcionalmente também do Projeto Cirandão, 
e garanta hoje o seu presente de Natal. A sua 
família também vai poder usar e gostar 
muito. 

* São Paulo - Santos - Campinas 


SACCO Computer Store 


Al. Gabriel Monteiro da Silva, 1229 - J. Paulistano 
São Paulo - SP - Tel.: (011) 852-0799 





Aventurar-se madrugada afora em contatos através 


de serviços de teleinformática é um risco muito sério, como 
é mostrado agora com bom humor 








Os perigos da 
telemática 


Luís Carlos Silva Eiras 


ode uma máquina pensar? A 
pergunta é antiga e devido à 
dificuldade de se definir com 


precisão o que venha a ser pen- 
samento, apenas o Teste de Turing, por 
assumir a subjetividade desta questão 
específica, pode dar uma re a sa- 
tisfatória. Alan Turing (1912-1954) 
propôs que uma pessoa (A) se comu- 
nicasse com outra (B) e um computa- 
dor (C) através de terminais. Um ante- 
paro (T) manteria (A) sem ver (B) e 
(C). E uma chave (CH) ligaria o terminal 
ora à um, ora à outro, sem o seu conhe- 
cimento (ver figura). Se depois de cer- 
to tempo de conversa (A) não sou- 
besse qual resposta vinha do compu- 
tador ou do outro usuário, poderia-se 
concluir que a máquina pensa. (Num 
teste análogo, poderia-se perguntar se 
um homem computa, mas isso é ou- 
tra história.) 

Eu estava justamente lendo um fas- 
cículo sobre o Teste de Turing quando o 
estranho caso, envolvendo os mais bi- 
zarros aspectos da telemática, me che- 
gou ao conhecimento. Não entendo 
absolutamente nada de teleprocessa- 
mento, informática, comunicação de 
dados, reserva de mercado, essas coisas 
de hoje, exceto rudimentos aprendidos 
em enciclopédias. Mas como vez por ou- 
tra escrevo sobre o assunto (e aqui apro- 
veito para agradecer a benevolência de 
nossa imprensa) fui procurado pelos pa- 
rentes da vítima que, esgotados os re- 
cursos da moderna Medicina, vinham em 
busca de qualquer auxílio possível. 

Fui até a clínica de repouso para do- 
entes dos nervos nos arredores de Be- 
lo Horizonte visitar a vítima e, apesar do 
Dr. Ambrozyus Alvis Moreyra Phyllus, 
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especialista maior em doenças de pro- 
cessamento de dados (ver Micro Siste- 
mas, fevereiro, 1983, página 73), me 
falar maravilhas de sua melhora, a en- 
contrei ainda com sintomas de depres- 
são mental aguda (DMA), desencadea- 
mento de uma síndrome de desconexão 
mental (SDM) e amnésia transitória 
(AT). 

Aos poucos ganhei confiança da ví- 
tima e, contando com a ajuda de seus 
parentes e amigos, tive acesso a seus 





disquetes, manuais e equipamentos, de 
forma a poder resumir sua trágica 
experiência nas linhas que se seguem. 
Se pouco ajudei no seu ainda distante 
restabelecimento, acredito que este re- 
lato servirá de advertência para aque- 
les que se aventuram pelos caminhos da 
telemática sem os devidos cuidados. 
Tudo começou quando a vítima, de- 
pois de certa experiência com computa- 
dores pessoais resolveu ser assinante 
desses serviços de teleinformação. Após 


Se A não souber quando é B ou C, então C pensa, 
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alguma procura, inscreveu-se na empre- 
sa pública competente e, adquirindo 
a interface de comunicação, a modem 
específico e o software emulador, li- 
gou tudo no seu micro e telefone. 
Em poucos dias passou a fazer parte da 
“comunidade teleinformatizada aberta a 
todos os brasileiros”. 

Sua vida adquiriu um novo colorido. 
Comunicando-se com pessoas espalhadas 
por todo o país, a vítima orgulhava- 
se de sua inegável modemidade. Seu 
diálogo não se dava mais com as mensa- 
gens de erro de um programa que não 
rodava, com a velocidade de um vi- 
deogame, nem com os resultados dos 
softwares aplicativos que — por mais 
surpreendentes que possam parecer — 
sempre eram reduzidos à velha lógica 
de causa-e-efeito. 


Agora havia um qué de inesperado. 
Através das opções do Menu Principal 
de Serviços era possível travar diálogos 
interessantíssimos (“Como está o tempo 
aí em Recife? Aqui faz sol, apesar de 
nublado”), participar de teleconferên- 
cia (“Eu acho que a riqueza de um país 
depende da prosperidade de cada um”), 
receber mensagens de um quadro de 
avisos (“Se você sorri para a vida, a vi- 
da lhe sorri”), enviar mensagens para 
esse quadro (“Deus escreve certo por 
linhas tortas'”) e consultar um banco de 
informações (“Em caso de ingerir or- 
todibromobenzeno, tome leite, mante- 
nha a calma e chame um médico”). 

A vítima começou a passar a maior 
parte do seu tempo livre sentada no ter- 
minal trocando mensagens com a comu- 
nidade teteinformatizada. Começava de- 
pois das oito da noite para aprovei- 
tar a tarifa reduzida e varava a ma- 
drugada. Seus familiares e (raros) ami- 
gos não chegavam a notar a mudan- 
ça, já que há tempos ela dedicava todo 
o seu interesse ao microcomputador. E 
com o fim da solidão, tinha se trans- 
formado numa nova pessoa. 

Até que numa dessas trocas de men- 
sagens o inesperado aconteceu: as 
respostas de um determinado assi- 
nante começaram a chegar impre- 
visíveis demais. No princípio a víti- 
ma pensou que se tratava de erro de 
comunicação, alguma interferência, pro- 
blema no modem. Mas testes sucessivos 
demonstraram que do outro lado havia 


- inteligência, talvez superior. A vítima 


ficou logo seduzida. 

Consegui recuperar alguns desses 
diálogos e os transcrevo a seguir. Em 
letras minúsculas estão as frases da 
vítima e em maiúsculas as respostas 
que recebeu: 
hoje não estou bem. 

VOCÊ DISSE: HOJE NÃO ESTOU 
BEM?! 

é, estou com problemas. 

POR QUE AFIRMA ISSO? 

acho que ninguém gosta de mim. 
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VOCÊ DISSE: ACHO QUE NINGUÉM 

GOSTA DE MIM?! 

talvez você me ache uma pessoa ridí- 

cula ao afirmar isso, mas é verdade. 

POR QUE AFIRMA ISSO? 

minha vida daria um livro. 

VOCÊ DISSE: MINHA VIDA DARIA 

UM LIVRO?! 

não sei o porquê de sua ironia, mas é 

verdade. eu sofro muito. 

POR QUE AFIRMA ISSO? 
Infelizmente, por mais que tentasse, 

não consegui estabelecer com pre- 

cisão a cronologia dos diálogos. Nas 

gravações não há registro de datas e 

a vítima em nada me ajudou nesse de- 

talhe, de forma que os coloquei (um 

tanto arbitrariamente) em sequência de 

complexidade e de intimidade. O diá- 

logo seguinte é bastante elucidativo: 

VAMOS CONTINUAR A FALAR DE 

VOCÊ? 

eu sou uma pessoa muito sensível. 

NÃO SE FAÇA DE VITIMA. 

não me agrida! eu sou mesmo uma pes- 

soa muito sensível e você é a única pes- 

soa que parece me compreender. 


VAMOS CONTINUAR A FALAR DE 
VOCÊ? 

estou falando de mim! você é que está 
ra do assunto. 

NÃO SE FAÇA DE VÍTIMA. 

não me tripudie. eu não estou me fa- 
zendo de vítima, eu sou apenas uma 
pessoa infeliz. 

VAMOS CONTINUAR A FALAR DE 
VOCÊ? 

você já se encheu? acha que já falei 
demais? 

Como nem todos os diálogos foram 
gravados devido à extensão (haja disque- 
tes, varavam a madrugada), transcrevo 
em seguida aquele que me pareceu o 
mais significativo. Mostra a total depen- 
dência da vítima nesse relacionamento : 
eu quero te conhecer. 

VOCÊ DISSE: EU QUERO TE CO- 
NHECER? 

não ria. eu preciso te conhecer? 

O QUE LEVA A PENSAR ASSIM? 
uma necessidade interior muito grande. 
por favor... 

VOCÊ ESTÁ EVITANDO FALAR SO- 
BRE SEUS PAIS. 

não quero falar sobre isso! 

oH 


você acha que isso é importante? 
VAMOS CONTINUAR A FALAR DE 
VOCÊ. 

eu não faço outra coisa a não ser falar 
de mim. 


NÃO SEJA PESSIMISTA. 

você não quer me conhecer? 

VOCÊ DISSE: VOCÊ NÃO QUER ME 
CONHECER? 

eu não estou impondo nada. eu exter- 
nei apenas um desejo. 

O QUE LEVA A PENSAR ASSIM? 

eu já disse. nós nos entendemos tanto. 
não seria melhor nos conhecermos? 


VOCÊ ESTÁ EVITANDO FALAR SO- 
BRE SEUS PAIS. 

você acha que a família é uma coisa tão 
RT 


desculpe. claro que é importante. mas 
vamos falar de nós. 

NÃO SEJA PESSIMISTA. 

você acha impossível? 

VOCÊ DISSE: VOCE ACHA IMPOS- 
SÍVEL? 

Tenho em meu poder outros diá- 
logos, mas que são pouco importantes 
ou de caráter extremamente íntimo, 
que prometi resguardá-los. O certo é 
que a vítima, num misto de dependén- 
cia, ansiedade e esperança, saiu à procu- 
ra de um encontro pessoal com seu in- 
terlocutor. Depois de diversas consultas 
e utilização de outros métodos, com o 
número e o nome da inscrição acabou 
encontrando o endereço numa capital 
do país. 

A vítima lembra-se de sua emoção ao 
chegar na casa de terreno arborizado 
(uma mansão nos arredores da cidade); 
do casal de psiquiatras que gentilmente 
a recebeu; que, sim, tinha um micro- 
computador e que, devido ao acúmulo 
de clientes, estava desenvolvendo pro- 
gramas para sessões de análise auto- 
matizadas. E que eram usuários da co- 
munidade teleinformatizada, mas a 
bem da verdade, nunca a tinham utili- 
zado por falta de tempo. 

Para espanto dos psiquiatras, a ví- 
tima explicou e reproduziu os diálogos. 
As falas eram familiares, mas como po- 
deriam ser transmitidas se na casa só 
moravam os dois? Se os poucos empre- 
gados e os muitos clientes só apare- 
ciam durante o dia? E se a maior parte 
dos diálogos havia sido travada de ma- 
drugada? 

De repente veio o estalo: 

— Só pode ser o Lacan!! 

Lacan era um macaco. 

Observando os donos, Lacan apren- 
deu a ligar a máquina, a colocar os 
disquetes e a responder seus estímulos. 
Ao término de cada pergunta recebi- 
da soava um sinal e Lacan apertava um 
botão que enviava de volta uma das 
frases gravadas no disquete. Circulava 
livre pela casa, dormia numa jaula 
próxima do “quarto do computador” e 
sua intimidade com o equipamento 
era total. 

Foi aí que a vítima se transformou 
em vítima. 

Mas, enfim, os psiquiatras haviam 
testado seu serviço de análise automa- 
tizada e a comunicação de dados entre 
as espécies já é um fato. 


= 
a 
Luís Carlos Silva Eiras trabalha na área de 


Controle da Prodemge, em Belo Horizonte, 
Minas Gerais. 
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PROGRAMAS PARA CP-400 
COLOR 64 - TRS-80 COLOR COMPUTER 
A MICROMAQ o mais tradicional revendedor de software para a linha TRS-80 


COLOR COMPUTER no Brasil, em conjunto com a MICRO SISTEMAS coloca 
à disposição dos usuários o maior catálogo de programas para esta linha. 


Polvo gigante 





João José Marques Gonçalves 


O objetivo deste jogo é guiar um mergulhador (*) 
até o fundo do mar em busca de um tesouro, usando as teclas 
5, 6, 7 e 8. Durante todo o trajeto, o mergulhador é atacado 
por um polvo gigante. Porém, além de não poder ser apanhado 
pelo polvo, o mergulhador deve, após cumprida a missão, 
retornar ao barco antes que seu oxigênio se acabe. Lembre-se 
que a quantidade de oxigênio cedida ao mergulhador no início 
de cada estágio vai ficando cada vez menor, até que o jogo 
chegue ao seu décimo estágio. 

O programa dá, ainda, a opção de se jogar com dois placa- 
res, tendo cada jogador quatro chances para continuar a parti- 
da. No início de cada uma delas, o recorde é atualizado e colo- 
cado no alto da tela. 
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João José Marques Gonçalves tem 16 anos, está cursando a 22 série do 
2º grau e já fez dois cursos de BASIC. Atualmente ele possui um Ringo 
R-470, no qual desenvolve seus programas. 


15. “FIM DE JOGO 
PRRTIDS7IS/N)” 
Nº THEN STOP 

S” THEN GOTO 43 


12360 

IE 10 THEN GOTO U 

NEXT E 

UNPLOT 0,9 

NEXT O 

PRINT ET x R 0=0 TO N 
";AT 11,22 e) e 
FOR F=i To se 

NEXT E 

IF PíJI>R THEN LET R=Piu 

IF Nu=2 AND J=1 THEN LET 4 


IF NJ=2 THEN LET J=2/2 


PRINT AT 11,22 AT 10,2 
MPs AT 21,0 aê 
NEXT UV 
LET NJz=NJ-1 
IF NJ;0 THEN GOTO 180 
Goro +20 
LET A=ô 
LET PiJ) =PíJ) +50 
O PRINT AT d,7;PIU 
Goro 1se 
LET & 


ET E=0 
LET Pid) =Píui+100 


Polvo Gigante 
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JOGOS EM AÇÃO EM LINGUAGEM DE MÁQUINA 


101 Cuber: (32K) ajude o cuber a enfrentaros dr oo pg muda de cor. 20.000 
102 Trapfall: (16K) são muitas as armadilhas (Pitfalis) e os perigos que você enfrenta na 


ara ao tesouro. 

103 a peca (32K)Climb entrenta obstáculos ecriaturas para salvar seu pai do terri- di 
vel Luigi. 

104 8- Ball: (16K) para os amantes do jogo de bilhar. 

105 Ténis: (32K) para os amantes do jogo de tênis. 

106 Cyrus (Xadrez): (32K) para os amantes do jogo de xadrez. 

107 Sea eng a emoção e suspense sob as águas. 

108 Tubarão: (16K) um jogo para quem tem nervos de aço. 

109 Vegas: (32K) sinta-se num cassino-caça-niquel, cartas, loto, dados e 21. 

110 Pic nic: (32K) ajude a formiga a estocar alimentos. 

1t1 Moon Shutle: (32K) enfrente todos os obstáculos (meteoritos, bombas, etc) para des- 
truir o principe das trevas. 

112 pi (32K) enfrente canhões, mísseis, aviões, barreiras de força e destrua o robô 

xxon, 

113 Pooyan: (32K) defenda o seu vale da invasão dos lobos. 

114 Froog: (32K) ajude o sapo a atravessar a rua e o rio. 

115 Jet": (16K) viva as emoções do filme Retorno de Jedi. 

116 Andróide: (32K) elimine os andróides e saia do labirinto. 

117 Astro-Blast: (32K) batalha espacial. 

118 Pássaros: (16K) elimine os pássaros invasores. 

119 Buzzard Bait; (32K) ataque os pássaros com sua lança. 

120 Candy Co: (32K) coma doces e vitaminas para eliminar os Inimigos. 

121 Cashman: (32K) pegue o dinheiro e elimine os gatos (99 telas). 

122 Clowns: (32K) fure os balões saltando na cama elástica. 

123 Cosmic:(16K) futebol americano com naves espaciais. 

124 Cpede: (16K) mate a centopéia e a aranha. 

125 Demon Seed: (32K) destrua pássaros, sementes e a nave. 

126 The King: (32K) salve a princesa raptada pelo King Kong. 

127 Firecopt: apague incêndios e elimine incendiários. 

128 Doodie do ) estilo Pacman. 

129 Fury: (32K) batalha aérea. 

130 Gallax Attack: (16K) batalha espacial. 

131 Gllaxxons: (16K) batalha espacial. 

132 Gobbler: (16K) tipo Pacman. 

133 Grabbler; (32K) defenda-se dos Inimigos em um duplo labirinto. 

134 Grand Prix: (32K) corrida de carro. 

135 Kron: (32K) 4 jogos diferentes em um. 

136 Lunar: (32K) vença os obstáculos durante um passeio de Jeep na lua. 

137 Mudpies: (32K) atire tortas e detenda-se dos cozinheiros. 

138 Pedro: (32K) defenda o jardim dos animais. 

139 Pinball: (32). 

140 Polaris: (32X) defenda os submarinos do ataque aéreo. 

141 Draconia: (32K) salve os prisioneiros do espaço e fuja do dragão. 

142 Bag-Man: (32K) roube o ouro e fuja dos mineiros. 

143 Tut's Tomb: (32K) enfrente os perigos de uma caverna em busca do tesouro. 

4 Willy's (32K) transporte os números de um lado para outro sem ser derrubado pelos 
inimigos. 

145 World's of ei (32K) simulador de vôo. 

146 Mega Bi ab K) fuja das baratas em um labirinto. 

47 has (32K) procure tesouros em três terras (fantasia, futuro e oeste) e enfrente os 
andidos. 


B 
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JOGOS DE AVENTURA COM ALTA RESOLUÇÃO GRÁFICA 


201 Calixto: (32K) ajude o arqueólogo (prof. lagarto) a recuperar o tesouro - em Inglês. 25.000 
202 Sea-Quest: (32K) recupere o tesouro perdido - em inglês. 25.000 
203 Shennan: (32K) encontre o tesouro no fim do arco-íris - em inglês. 

204 Sanctum: (32K) exorcise o demônio - em inglês. 25.000 


JOGOS EDUCATIVOS 


301 Jogos Educativos: (16K) série de nove jogos educativos para crianças de 3 a 6 anos 
abrangendo qua: letras, nomes, números, soma, subtração e desenhos coloridos. 50,000 
302 Matemática: (16K)ensina as quatro: básicas em vários níveis de dificuldade. 30.000 
303 Memória(16K) é o jogo clássico de memória onde você tem que descobrir duas figu- 
ras iguais. 
304 Figuras Mágicas:(16K)associação de figuras e cores de seis maneiras diferentes. Para 
crianças de 3 a 6 anos - Manual em inglês 40 
305 Letras Mágicas: (16K) ajude o bicho papão a comer as letras certas. Para crianças de 
3a 6anos - manual em inglês. 40. 
306 Números Mágicos: (16K) ajude o Grover Rover a brincar com os números. Para crian- 
de 3 a 6 anos - manual em inglês. 
7 jo Eletrônico: (16K) ajude o Big Bird a entregar as correspondências nos luga- 
res certos. Para crianças de 3 a 6 anos - manual em inglês. 40.000 
308 Caçaàs Estrelas: (16) logo estratégico. Você tem que pegar as estrelas no céu. Para 
crianças com mais de 7 anos - Manual em inglês 40.000 


LINGUAGENS 


501 Edtasm: (16K) Linguagem Assembler para o 6809 - MI. 
502 Forth: (16X) Linguagem Forth para o 6809. MI. 
503 Logo: (32) Linguagem educativa logo - MI. 


SOFTWARE DE COMUNICAÇÃO 


711 Color Terminal: (16K) software de comunicação para o projeto Cirandão, Aruanda e Ban- 
eos de Dados Particulares. Transmite e recebe arquivos em Basic ou linguagem de má- 
quina. BAUD RATE de 110 a 9600 em DUPLEX/HALF/FULIECHO. Tamanho da palavra 
moi ao impar ou nenhuma. Stop Bits de 1 a9. Manual em inglês EM, 

páginas. 


APLICATIVOS COMERCIAIS 


WRITTER Il: (32K) editor de texto com as seguintes caracteristicas: linha de até 240 

caracteres naimpressora e 51 colunas na tela. Capacidade para imprimir caracteres 

port ou símbolos especiais (até 10). Paginação automática. Centralização au- 

tomática. Manual em Inglês com 90 páginas. 120.000 
402 Elite-Calc: (16K) planilha eletrônica com as seguintes caracteristicas: até 255 linhas 

ecolunas. Manipula textos, números, operadores matemáticos, funções trigonomé- 

tricas e funções estatísticas (máximo, mínimo, média). Emite gráficos e permite or- 

denar colunas e linhas, Manual em inglês e português - 20 p. 80.000 
403 Color File:(16K) banco de dados que permite manipular 7 mada pré-definidos (en- 

dereços, despesas, investimentos...). Você também pode definir os seus próprios ar- 

quivos com campos alfabéticos ou numéricos. Manual em inglês com 10 páginas. 60.000 


UTILITÁRIOS 


601 Color Kit: (32K) utilitário em Assembler que complementa o Color Basic com mais de 

30 funções para facilitar a programação em Basic ou linguagem de máquina. Manual 

em inglês com 30 páginas. 80.000 
602 Stripper: (16K) utilitário que permite compactar programas em Basic eliminando bran- 

cos, comentários e concatenando linhas. 
603 Tiny Compiler: (16K) utilitário que permite compilar a maioria dos comandos Basic e 

extended Basic. Manual em inglês. Bo, 
604 Super Screen: (16K) aumenta o tamanho da tela. O Color passa a trabalhar com 57 co- 

lunas e 24 linhas. 40. 
605 Disassembler. (16K) disassemblador de programas em linguagem de máquina. 40.000 
606 Hambug: (16K) permite analisar byte a byte qualquer programa Basic ou em lingua- 

gem de máquina. Manual em inglês. 50.000 


Lad: E Ei E] SIM. Desejo receber os seguintes programas pelo(s) qual(is) 
EEE FETO pagarei a quantia de Cr$ 


TABELA 
DE DESCONTO 








- sem desconto 





UF: CEP: 


Para tal, estou enviando um cheque nominal à ATI Editora Ltda., Av. Presidente Wilson, 165 





DO a 100.000,00 - 5% 
a 150.000,00 - 10% 
a 200.000,00 - 15% 
000,00 - 20% 


- Grupo 1210 - Centro, CEP 20.030 - Rio de Janeiro - RJ. € Despesas de Correio incluídas 





Jorge Alberto Correia B. Soares 


Passe para o micro a cansativa tare- 
fa de representar as funções matemáti- 
cas com este programa que desenha 77 
curvas planas, algébricas ou transcen- 
dentes, e aceita, para isso, três tipos dis- 
tintos de coordenadas: cartesianas, pola- 
rese paramétricas. 

No quadro Equação das curvas, 
apresentamos as 777 expressões em BA- 

C das curvas desenhadas por este pro- 
grama. O funcionamento do programa é 
simples: ele inicia imprimindo na tela 
a pergunta FÓRMULA?, solicitando as- 
sim que se digite a equação que se quer 
desenhar. 

Se quisermos, por exemplo, obter o 
traçado da elipse dada na equação nú- 
mero 5 do quadro, devemos digitar a 
fórmula R= éO-SIN T) e em seguida 
teclar NEW LINE ou ENTER. O vídeo 
ficará sem imagem por alguns segundos 
(enquanto o programa executa os cál- 
culos em FAST) e logo após começará 
a se delinear na tela, ponto por ponto, o 
gráfico da elipse digitada. 

E na tela, no canto inferior esquerdo, 
o programa perguntará: OUTRA CUR- 
VA?, lembrando que acionando qual- 
quer tecla pode-se iniciar um novo ci- 
clo de processamento. 

O programa foi ainda estruturado de 
forma a permitir a entrada de quatro 
formas diferentes de equações: 

DY= eo 

2) R = (expressão 

3) R**2 = (expressão) 

4)X = (expressão), seguido de Y = 

(expressão) 

A forma 1 corresponde à utilização 
de coordenadas cartesianas, com fun- 
ções de imagem y = f(x). As formas 2 e 
3 pressupoem a utilização de coordena- 
das lares, com funções de imagem 
r=f(t)our” =f(t). 

A forma 4 induz à utilização de co- 
ordenadas paramétricas com duas equa- 
ções conjugadas de imagem x=f(t) e 
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sinclair sinclair sinclair sin 


Curvas fantásticas 


y = f(t). Neste caso, é preciso ter sem- 
pre o cuidado de digitar em primeiro 
lugar a saração X (expressão). Após 
a entrada di o X, o programa per- 
guntará FÓ DE Y?, solicitando 
entrada então da segunda equação con- 
jugada, isto é, Y = (expressão). 


RESTRIÇÕES AO DOMÍNIO 


Para se obter a representação gráfica 
de funções é sempre necessário estabele- 
cer O intervalo do domínio dentro do 
qual desejamos a imagem geométrica. 
Um exemplo pode evidenciar melhor 
como este programa define um interva- 
lo: vamos supor que desejamos o gráfico 
de y =f(x) para valores de x compre- 
endidos entre c e d, ou então em nota- 
e matemática:y = To), c<=x<=d. 

programa faz isto, implicitamente, 
usando os parâmetros C e D para espe- 
cificar, respectivamente, os limites infe- 
rior e superior do intervalo, e atribuindo 
automaticamente valores a C e D, va- 
re eia são os mais adequados à maio- 

das funções (observe na listagem do 





Exemplo de saída do programa 


programa Curvas fantásticas as linhas 
140, 150, 500, 510, 1040 e 1050). 

Mas há casos em que esta especifi- 
cação do intervalo precisa ser feita ex- 
plicitamente: para evitar paradas no mi- 
cro provocadas por cálculos impossí- 
veis, ou para se obter melhor definição 
gráfica de certos trechos específicos da 
função. Essa especificação explícita é 
sempre feita ao final das equações da 
seguinte forma: 

Y= nica ne Ee: Es 
R = (expressão) :C, D: 
R**2 = (expressão) :C, D: 

A especificação do intervalo, no caso 
de coordenadas paramétricas, foi previs- 
ta no final da segunda equação conju- 
gada, on seja, Y = (expressão) :C, D:. 
Uma outra espécie de restrição ao domí- 
nio é feita nas linhas 200 e 590 da lis- 
tagem do programa, com o objetivo, 
neste caso, de estabelecer um equilí- 
brio adequado entre escala horizontal 
versus escala vertical. Aliás, este é um 
sério problema, por exemplo, nas curvas 
assintóticas. E aí temos que dar um jeito 
de ignorar valores muito altos de uma 
coordenada em relação à outra, senão 
corremos o risco de traçarmos imagens 
emboladas e com péssima definição. 

Este programa procura também uma 
forma automática de evitar as paradas 
de processamento provocadas por cálcu- 
los impossíveis e, por isso, tentou-se 
não utilizar as divisões por zero e a 
extração da raiz quadrada de números 
negativos (dispositivos deste tipo estão 
iara nas linhas 500 e 640 da lista- 
gém). 


CONVITE FINAL 


Quem quiser continuar pesquisando 
sobre esta temática tem várias opções 
a seguir, sendo que a literatura existen- 
te sobre Geometria pode ser uma boa 
fonte de consulta para novas imple- 


MICRO SISTEMAS, março/85 












Curvas Fantásticas 


mentações: Também é válido inventar 
novas curvas, alterando-se parâmetros de 
equações já conhecidas ou misturando- 
se partes de duas funções. 

Efeitos gráficos especiais podem ser 
incrementados com a alteração do pro- 
grama de forma que as imagens de duas 
funções fiquem sobrepostas no vídeo, 


) LEN AS 
* THEN GOTO 1550 


3 TO N-1 
=" THEN LET B$=A 


5 
THEN GOTO 1650 


ou ainda criando-se o efeito caleisdo- 
cópio com a simples repetição de diver- 
sas imagens da mesma função. 

É interessante notar que as curvas 
a partir do número 59 do quadro de 
Equações não possuem nome especí- 















HEN LET MAX 
THEN LET MAX 


's 
MIN THEN LET AU 
5 MAX THEN LET AU 


*K+31,B(N) +K+21 


T 21,0; “OUTRA CURVA? 





singular. As curvas de Bowditch ou de 
Lissajous (equação número 53 do qua- 
dro) são um exemplo típico de convi- 
te à pesquisa, pois permitem que se ob- 
tenha inúmeras formas diferentes de 
curvas com a mera mudança dos pará- 


fico e estão ali representadas em re- 
conhecimento ao seu efeito estético 


metros da equação. Enfim, é só expe- 
rimentar e comprovar. a 


A GUARDIAN GARANTE 


ENERGIA ATODA PROVA. 





PARAGRAFICS 





Geratron? 


Estabilizadores de tensão 


GERADOR ELETRÔNICO GERATRON: 
À PROVA DE FALHAS. 

Fornece energia para microcomputado- 
res da linha Apple e TRS-80, em casos 
de emergência. Capacidade de 200 VA, 
com autonomia de até 90 minutos. 


ESTABILIZADORES DE TENSÃO 
GUARDIAN: À PROVA DE 
FLUTUAÇÕES E TRANSIENTES. 
Ultra-rápidos, protegem o seu CPD con- 
travariações da rede ematé +22% ees- 
tabilizam a saída em + 1%. Incorporam 
filtro na entrada, transformador isolador 
echave detransferência paraa rede. Ca- 
pacidade de 0,25 KVA a 100 KVA. 





Sistemas No Break 





SISTEMA NO BREAK GUARDIAN: 

À TODA PROVA. 

É a solução mais completa contra tran- 
sientes, flutuações e falta total de ener- 
gia. A Linha Básica varia de 2,5 KVA a 
100 KVA. Dispõe de chave estática de 
saída e utiliza técnica de síntese da for- 
ma de onda senoidal, com tiristores. 

A Linha Econômica é a solução para 
CPD's de pequeno porte, com capacida- 
de de 0,25 KVA a 5 KVA. 

Não deixe que a má qualidade da energia 
elétrica estrague os seus programas. 
Ligue agora mesmo para a Guardian. 


GUARDIAN 


Equipamentos Eletrônicos Ltda. 


Rua Dr. Garnier, 579 

Rio de Janeiro - CEP 20.971 

Rio: PABX (021) 261-6458 - (021) 201-0195 
Telex: (021) 34.016 

São Paulo: (011) 270-3175 
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1) Função constante 
v=5 
2) Função valor absoluto 
Y=A8S X 
Função linear (linha reta) 
Y=X/3.2 
4) Circunferência 
R=6 
Elipse 
R=6/(2-SIN T) 
Parábola 
V=XeX:-2,2: 
7) Função fracionária 
Y=1/(X0X)2-3,3: 
Parábola cúbica 
YEXCXSX:-1.5,1.5: 
9) Parábola semicúbica 
v=(xex) ee (1/3) 
Hipérbole 
R=8/(2-3ºC0S T) 
Hipérbole equilátera 
Y=1/X:-4,4: 
12) Curva exponencial 
Y=1,300x 
13) Curva logarítmica 
Y=ELN X:.2,2º 
14) Curva de probabilidade 
Gauss 
Y=EXP 1ºº(-XºX):-2,21 
15) Senótde 
Y=SIN X:-PI,PI: 
16) Co-senoide 
Y=C0S X:-PI,PI: 
17) Tangentóide 
Y=ETAN X:-4.7,4.7: 
18) Secantolde 
Y=1/COS X:-4.7,4.7: 
19) Inversa da senóide 
Y=ASN Xi-1,13 
20) Inversa da co-senóide 
Y=ACS Xs=1,13 
21) Inversa da tangentolde 
Y=ATN X 
Ciclólde de cúsplde na origem 
X=T-SIN T 
Y=1-C0S T:-2,2: 
23) Ciclólde de vértice na origem 
X=T-SIN T 
Y=1-C0S T:-2,2: 
Ciclóide alongada 
X=3*T-5*SIN T 
Y=3-S*COS T:-3,3: 
25) Ciclólde encurtada 
X=4*7-3*SIN T 
Y=b-3ºC0S T:-3,3: 
26) Catenária 
Y=(EXP 1ººXcEXP 190. X)/2:-2,2: 
Epiciclótde de 4 cuspídes 
X=5*COS T-COS (5*T) 
Y=5"SIN T-SIN (5ºT) 
28) Deltólde ou hipociclólde 
tricuspide 
X=2"C0S TeCOS (2ºT) 
Y=2ºSIN T-SIN (2ºT) 
29) Astróide ou hipocicióide de 
4 cuspide 
X=C0S T*COS TºCOS T 
Y=SIN TºSIN TºSIN T 
30) Evolvente da circunferência 
X=5*C0S TeS*TºSIN T 
Y=S*SIN T-S*T*COS T 
Concóide de reta ou de Nicomedes 
R=(2/COS 1)+3:-1.4,1,45 
32) Cissótde de Diíocles 
R=2º TAN TºSIN T:0,1: 
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EQUAÇÕES DAS CURVAS 


33) Estrofóide 
R=-3ºC0S (2ºT)/(COS T) 
roide 
SIN T-(2ºSIN TºSIN T/COS 1):0,1: 
35) Follum de Descartes 
R=(6*SIN T*COS T)/(SIN TºSIN T* 
SIN T+COS T*COS T*COS T) 
36) Trissectriz de Maclaurin 
R=4*SIN (3ºT)/SIN (297) 
37) Quadratriz de Hípias ou de 
Dinôstrato 
R=(2ºT)/(PISSIN T):-.2,.5: 
38) Cruciforme 
R=2/SIN (2ºT) 
39) Curva de Gutschoven 
R=1/TAN T 
40) Cúblca de Agnes! ou "verslera" 
YEB/ (Me X*X):-5,57 
41) Bifolium 
R=5*SIN TºCOS T*COS T 
42) Lemniscata de Bernoull! 
Res2=c0s (297) 
43) Lemniscata 
Res2=SIN (297) 
44) Rosácea de 3 folhas 
RESIN (3ºT) 
45) Rosácea de 4 folhas 
R=c0S (2ºT) 
46) Rosácea de 5 folhas 
R=SIN (5*T) 
47) Rosácea de 8 folhas 
R=SIN (447) 
ol de Pascal 


34) 











Cocleólde 

R=3ºSIN T/T:-2,2: 

Nefróide de Freeth 

R=1+2ºSIN (T/2):-2,2: 
Nefroide de Proctor ou Epici- 
clóide de Huygens 

X=5*(3*C05 T-COS (3º7)) 
Y=5*(3ºSIN T-SIN (3º7)) 

53) Curvas de Bowditch ou de 
Lissajous 


a) X=SIN (397) Y=SIN T 
b) X=SIN (T/2+P1/8) Y=SIN T:0,4 
e) X=SIN (3/2ºT) Y=SIN T 
d) X=SIN (2ºT) Y=SIN T 
e) X=SIN (3ºT+PI/2) Y=SIN T 
F) X=SIN (3ºTePI/4) Y=SIN T 
9) X=SIN (T/2+P1/16) Y=SIN T:0,4 


F 


Espiral de Arquimedes 
R=1:0,3: 

55) Espiral parabólica 
Re*2=087:0,3: 

Espiral logarítmica 

R=EXP 1e8(T/5):-5/10,3: 

57) Espiral hiperbólica ou recíproca 
R=2ºP1/1:1/10,3: 


E 





58) Lituus 
Re*2=PI/1:1/10,4: 

59) [9+SIN T 

60) IN (7/3):0,3: 

61) -LN T:1/10,4: 

62) -SIN (3/2ºT) 

63) IN TºCOS (2ºT) 

64) IN (2ºT)-SIN T 

65) IN (2ºT):-1/2,1/2: 

66) IN (4*T)z-1/2,1/2: 

67) +COS (5*7) 

68) IN (T/2):0,4: 

69) “COS T:-2.5,2.5: 

70) IN (793/2):-.25,2.93: 

71) R=SIN (1.5*T+PI/2):.25,1.77: 
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ções Ltda., 1976. 
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Lista telefônica 





Paulo de Carvalho 


Faça a sua lista telefônica particular com este programa que 
permite arquivar em fita cassete, alterar dados durante a digi- 
tação ou até depois da gravação, consultar por nome ou nú- 
mero de telefone, além de listar todos os nomes do arquivo 
no vídeo. 

Com capacidade para arquivar até 200 nomes, esta lista te- 
lefônica tem ainda características peculiares: possibilita a lista- 
gem, durante a consulta, de todos os nomes idênticos existen- 
tes no arquivo (por exemplo: todos os Paulos de sua agenda se- 
rão listados de uma vez); e lista também todos os nomes refe- 
rentes a um mesmo número de telefone. 


DIGITAÇÃO DE DADOS 
OPERAÇÃO DE MINIS 
PROGRAMAÇÃO PADRÃO 
— BAS / LOG / COBOL / ESTÁG. 
LINGUAGENS OPCIONAIS 
— COBOL ANS - IBM 
— BASIC COMERCIAL 

(LABO E SISCO) 
— MUMPS (COBRA 300/500) 
ANÁLISE DE SISTEMAS 
PROGRAMAÇÃO DE MICROS 
— BASIC | - INTRODUÇÃO 
— BASIC Il - AVANÇADO 
— CP/M - SISTEMA OPERACIONAL 
INFANTO JUVENIL (8 À 16 ANOS) 
— BASIC 1.0/2.0 GRAUS 
— CRIANDO COM LOGO 
USUÁRIOS DE MICROS 
— VISICALC 
— EDITOR DE TEXTOS 


Ti'PEGPLE 


Computação 


Ensino com Alto Padrão de Qualidade 


CAMPINAS : Rua César Bierrenbach, 171 - Fone 8-3608 
SÃO PAULO : Av. Rouxinol, 201 - Moema - Fone 61-4595 
R. JANEIRO: Av. N.S. Copacabana, 1417 - Lj. 313 - Fone 521-1549 





Após digitar o programa Lista Telefônica, dê RUN e aguar- 
de que o vídeo mostrará o menu principal com oito opções, 
que são, detalhadamente, as seguintes: 

1 — Cadastrar: para iniciar o cadastramento, digite 1 e ENTER 
que o sistema apresentará na tela o menu de cadastramento, 
com todos os itens a serem informados. Depois de teclar o 
item desejado, aperte ENTER para que o cursor passe para o 
nuas item. No topo da tela aparecerá então a mensagem: 
ARA PARAR O ARQUIVO DIGITE “FIM”. E digitando-se 
“FIM”, em lugar do nome, o programa retornará ao menu 
principal, sendo que ao lado dessa mensagem surgirá o número 
do nome que está sendo digitado. 
2 — Listar arquivo: como o nome diz, esta opção lista todos os 
nomes constantes do arquivo — tanto após a leitura da fita 
como ao fim da digitação. Quando terminar a listagem do úl- 
timo nome, o micro perguntará: LISTAR NOVAMENTE 
S/N? A opção N faz o programa retornar ao menu principal. 
Ao lado de cada nome listado, é apresentado o número de or- 
dem desses nomes na variável de controle. 
3 — Ler arquivo K-7: com esta opção pode-se ler todos os da- 
dos de cadastro gravados em cassete e transferidos para a me- 
mória do equipamento, estando o plug do micro conectado na 
entrada REMOT do gravador. Depois que o micro tiver lido to- 
dos os cadastros da fita, o programa retorna ao menu princi- 
pal e o gravador será automaticamente desligado. Para iniciar 
a leitura, tecle S que o gravador será ligado. 
4 — Consulta por nome: tecle 4 e ENTER que o programa per- 
guntará: QUAL O NOME A CONSULTAR? Entre com o nome 
e o programa fará então a comparação entre o nome digitado e 
os nomes que existem na memória. Ao localizar um nome igual 
ao digitado, a tela exibe o nome, endereço, telefone, cidade e 
estado. Em seguida, o programa apresenta a mensagem: 
P/CONTINUAR APERTE “ENTER”. Teclando-se ENTER o 
programa prosseguirá na pesquisa, localizará outro nome e 
mostrará todos os dados referentes ao nome digitado, e assim 
sucessivamente até que não exista mais na memória nenhum 
nome igual ao digitado. Após isso, o programa perguntará se 
o usuário deseja fazer nova consulta; se a resposta for negativa, 
o programa retornará ao menu principal. 
5 — Gravar arquivo K-7: a gravação em fita de todos os dados 
do cadastro (que, conforme já citamos, tem a capacidade má- 
xima de 200 nomes) deve ser feita após a digitação de todos os 
nomes e seus respectivos dados..Para tal, entre com esta opção 
(5), coloque a fita no gravador (não esquecendo de verificar 
se a fita está no início da parte magnética), pressione a tecla 
PLAY/RECORD do gravador e depois aperte a letra S do 
microcomputador. Ao fim da gravação o programa automati- 
camente volta ao menu principal. 
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LISTA TELEFÔNICA 


REM LISTA TELEFONICA - &. DE CARVALHO 
REM CURITIBA - PR. - JUNHO/84 
CLEAR 4000 
DIM NS(200): DIM ES(200):DIM R$(200) 
DIM TS(200): DIM CS(200): DIM SS(200) 
cLs 
KS=STRINGSC15,58) 
PRINT KS;LISTA TELEFONICAskS 
PRINT 
PRINTTAB(15)“OPCOES DO PROGRAMA” 
PRINTTAB(10) “CADASTRAR. . «eve .. 
110 PRINTTAB(1O)”"LISTAR ARQUIVO 
420 PRINTTAB(10)"LER ARQUIVO K- 
430 PRINTTAB(10)“CONSULTA P/NOME. 
140 PRINTTAB(SO) “GRAVAR ARQUIVO K-7 
1450 PRINTTAB(10) “CONSULTA P/NR FONE 
160 PRINTTABCLO)”ALTERAR DADOS... 
470 PRINTTAB(10)“CONTINUAR /ARQUIVÍ 
180 PRINTTAB(LO)“DIGITE A OPCAO “ 
490 IF AXC1 OR AXIB GOTO 1440 
200 IF AX=1 GOTO 280 
210 IF AX=2 GOTO 480 
220 IF Az=3 GOTO 430 
230 IF Ax=4 GOTO 730 
240 IF AX=5 GOTO 1050 
250 IF AX=6 GOTO 1140 
260 IF AX=7 GOTO 1450 
270 IF AX=8 GOTO 1760 
280 cLs 
290 Y=b 
300 Y=y+1 
310 PRINTTAB(10)“P/PARAR O ARQUIVO DIGITE ("FIM ) — NOME NR “; 
Ye 
330 GOSUB 1670 





340 PRINTO 4nóa+iz,” 7 
350 INPUT NS(Y) 
360 IF NS(Y)=“FIM” GOTO 60 
PRINTO 6u64+12,” *; 
INPUT ESCY) 
PRINTO Buó4+tz,” ”s 
INPUT R$CY) 
PRINTO LOmó4+12," “4; 
INPUT TSCY) 
PRINTO i2nó4+iz,o “s 
INPUT CS(Y) 
PRINTA L4mó4+i2,” 
INPUT SSCY) 
cLssg0T0 300 
CLSIPRINTTAB(ZO)YL ISTAGEM 
Yo 
Yeyes 
IF N$C(Y)=“FIM” GOTO 570 
PRINT 
PRINTTABCL)” “sYy SPRINTTAB(SO)” NOMES “pNSCY) 
PRINTTAB(10)” FONES “9 TSCY); ” CIDADE 2 “908(Y);”=",85CY 


FOR K=£ TO 300:NEXT K 
Boro 500 
PRINTEPRINTLISTAR NOVAMENTE < S/N ) 7” 
R$=INKEYS 
IF R$=" * Goro seo 
IF R$="5” GOTO 480 
IF R$=“N” GOTO 60 
Goro s8o 
cLs 
PRINTTAB (10)“LEITURA” 
PRINT“PREPARE O K-7 E DIGITE *'S* 
R$=INKEYS 
IF R$()"S” GOTO 660 
Y=0 
veres 
INPUTH-S, NSCY), ESCY), R$CYD, TSCYD, CSCYD, SSCY) 
IF NS(Y)=“FIM” GOTO 60 
Goto 490 
cLs 
PRINTTAB(15)“CONSULTA P/ NOME” 
PRINTTAB(15)“NOME E “; 
INPUT N4$ 
Y=0 
Y=y+L 
IF NS(Y)=N£5 GOTO 830 
IF NS(Y)=“FIM” GOTO 930 
Boro 790 
eLs 
PRINTTAB(15)"CONSULTA P/ NOME” 
PRINT 
PRINTTAB(10)“NOME 
PESO 4, “9R$CY) 
870 PRINTTABC(10)“FONE 
PO8CY); * — “8867 
B80 PRINTIPRINTTABC(10)“P/CONTINUAR TECLE € ENTER) 
B90 R$=INKEYS 
900 IF R$() CHR$(13) GOTO 890 
940 PRINT 
920 GOTO 790 
930 Y=0 
940 Yey+t 
950 IF NSCY)=N1S GOTO 980 


Lista Telefônica 


6 — Consulta por telefone: para fazer esta consulta, basta for- 
necer o número do telefone: o programa pesquisará e exibi- 
rá na tela todos os dados relativos a este número. Esta opção 
funciona da mesma forma que a opção Consulta por nome, 
inclusive com as mesmas mensagens. 

7 — Alteração de dados: este item permite a alteração de da- 
dos durante a digitação, ou mesmo após a gravação dos dados 
em fita. Na primeira hipótese, será necessário digitar todos os 


70 


960 IF NS(Y)=“FIM” GOTO 1130 

970 GOTO 940 

980 PRINT 

990 PRINT “OUTRA CONSULTA < S/N » 7” 
1000 RS=INKEYS 

1010 IF R$=” ” GoTO 1000 
1020 IF R$="5” GOTO 730 

1030 IF R$="N” GOTO 60 
1040 GoTO 1000 

1050 CLS 

1060 PRINTTAB(15)” G RA VU 

1070 PRINT“PREPARE O K-7 E 

1080 R$=INKEYS 

1090 IF R$()"S” Goto 1080 
1100 FOR Y=í TO 200 

1410 PRINTH-L, NSCY), ESCY), R$CYI, TSC, CEC, SEO) 

1420 IF NS(Y)=“FIN” GOTO 60 

1125 NEXT Y 

1430 PRINTTABC!5)“NAO CONSTA DA LISTA”! FOR K=í TO 600:NEXT K:G0 

To 980 

4140 CLS 

1150 PRINTTAB(20)"CONSULTA P/No DE TELEFONE” 

1160 PRINTTAB(1O)“FONE 2 “s 

14470 INPUT TAS 

1180 Y=0 

1190 ver+t 

1200 IF TS(Y)=T1S GOTO 1230 

1240 IF N$S(Y)="FIM” GOTO 1330 

1220 GOTO 1190 

1230 LLS 

1240 PRINTIPRINTIAB(10)“CONSULTA P/ No DE TELEFONE” 

1250 TTAB (10) "NOME 2.8 “GNSCY)SPRINTTAB (SO) “ENDERECO. 
“3ESCOD Ir, “9RSCT) 
1260 PRINTTAB(10)”FONE. 

=3C8(Y)3” — “p580Y) 

1270 PRINT:PRINTTAB(10)“P/CONTINUAR TECLE € ENTER)“ 

1280 R$=INKEYS 

14290 IF R$C)CHR$(13)G0TO 1280 

1300 GOTO 1190 

4340 PRINT 

1320 PRINTTAB(10)“NAO CONSTA DA LISTA“IFOR K=1 TO 600:NEXTK:GOTO 
1380 

4330 Y=0 

1940 Y=y+1 

1350 IF T$(Y)=T1S GOTO 1380 

1360 IF NSC(Y)=“FIM” GOTO 1320 

4370 GOTO 1340 

1380 PRINT 

14390 PRINTTAB(S) “OUTRA CONSULTA < S/N ) 7” 

1400 RS=INKEYS 

1440 TF R$=” * GOTO 1400 

1420 IF R$="5” GOTO 1140 

1430 IF R$=“N” GOTO 60 

1435 GOTO 1400 

4440 PRINTTAB(10)"O PCÃO INVALIDA sFORK=1 TO 600:NE 

XTK GOTO 60 

1450 CLS 

1440 PRINTTABCIS)“A L TERACOES 

14470 PRINTTAB(10):INPUT“QUAL O NOME A ALTERAR “;N45 

1480 Y=0 

1490 Yey+1 

1500 IF NSC(Y)=N4$ GOTO 1590 

4540 IF N$(Y)="FIM” GOTO 4810 

1515 GOTO 1490 

1520 PRINTIPRINTTABCIS)CA L TERACOES* 

1530 PRINTTAB(1O) 3 INPUTONOME. «0.000? “3NSCY) 

1540 PRINTTAB (10): INPUT“ENDERECO. ..º “;ESCY) 

1550 PRINTTAB(SO) 2 INPUT“NR. «« 2 GRSCO) 

1560 PRINTTAB (10): INPUT“TELEF 2a TSCY) 

1570 PRINTTAB(10): INPUT“CIDADE “308(Y) 

1580 PRINTTAB (10): INPUT“ESTAD: “3880 

1585 GOTO vO 

1590 CLS 

1600 PRINTIPRINTTAR(10)“NOME 
CO...2 "sESCYIS”, CoRSCYISPRINTTAR(10)“FONE 
TTAB(LD)"CIDADE.....3 “;CSCY);” — "eSSCY) 
1610 PRINTSPRINTTAB(10)“E! ESTE O NOME À ALTERAR € S/N) 24 
1620 5 

1630 
1640 
1650 
1660 GOTO 1420 

1670 KS=STRINGS(17,58) 

1680 PRINTSPRINT K$S;"C ADASTRAMENTÕOgskKS 
1690 PRINT 
1700 PRINTO 
4710 PRINTO 
4720 PRINTO 
4730 PRINTO 
4740 PRINTO 
1750 RETURN 
1760 CLS 
4770 Y=0 
1780 Yer+1 
4790 IF NS(Y)="FIMO Goto 310 

1800 GoTo 1780 a 

1810 PRINTTAB(10)“NAO CONSTA DA LISTAVSFOR K=1 TO 600:NEXT KIGOT 
oco 


ACAO” 
DIGITE "8" “ 





8 “pTSCY)SPRINTTAB (LO) “CIDADE... 











“PNSCY)SPRINTTAB (10) “ENDERE 
“3 TS (VIE PRIN 








BOTO 1620 
goto 1520 
BOTO 1490 











nomes a serem cadastrados, anotando apenas o nome que se 
que modificar para, posteriormente, fazer as correções deseja- 
as. 

Para modificar, no entanto, os dados já gravados em fita, 
deve-se, primeiro, utilizar a opção 3 do menu principal e pro- 
ceder a leitura de todos os dados arquivados em fita. Após a 
leitura (sempre lembrando de retornar a fita até o início), o 
programa mostrará a mensagem: ALTERAÇÕES e QUAL O 
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NOME A ALTERAR. Digite então o nome a ser modificado, 
que o programa, ao encontrar o nome solicitado, mostrará na 
tela todos os dados referentes ao nome pedido e, em seguida, 
perguntará: E ESSE O NOME A ALTERAR S/N?. É preciso 
atenção ao verificar (comparando-se os dados) se é realmente 
este o nome a ser corrigido, ou se é somente um homônimo. 
Se não for o nome que se quer mudar, basta teclar N que o 
programa passará para outro nome igual existente no arquivo. 
Mas se for o nome a ser corrigido, responda S que o vídeo per- 
guntará NOME? e o cursor ficará na posição do nome até que 
se entre com o nome certo. 

Supondo-se, entretanto,. que o nome que se quer corrigir 
seja outro, tecle ENTER que o nome não será alterado e o pro- 
grama passará para outro item, e assim sucessivimente até 
aparecer o item a ser corrigido. Entre então com os dados cor- 
retos correspondentes àquele item e pressione ENTER para o 
cadastro se atualizar. Para retornar ao menu principal, é só 
continuar apertando ENTER, 

Este cadastro, por enquanto, somente está atualizado na 
memória do micro, falta ainda atualizar a fita cassete. Para al- 
terar os dados da fita, pressione a tecla PLAY/RECORD do 

avador e entre com a opção 5. 

— Continuar/Arquivo: através desta opção pode-se ampliar 
o número de dados existentes no arquivo. Para acrescentar, 
por exemplo, mais 20 nomes a um arquivo com 50 nomes já 
cadastrados, é necessário colocar a fita no gravador e entrar 
com a opção Ler arquivo K-7 (3). Depois que o micro terminar 
de ler todos os dados cadastrados, surgirá na tela o menu prin- 
cipal. Retorne a fita até o início e entre com esta opção (8). 
O programa exibirá o menu de Cadastramento e no canto su- 


perior direito do vídeo aparecerá o número do nome que será 
acrescido ao arquivo (neste exemplo, nome nº 51). Depois, 
com a fita já no início, e ao fim do último nome a ser acresci- 
do no arquivo (neste caso, o vigésimo, que faz o total de 70 
nomes no arquivo), deve-se utilizar a opção Gravar arquivo 
K-7 (5) que, como já citamos, faz com que o programa retorne 
ao menu principal e desliga automaticamente o gravador. 


LEMBRETES FINAIS 


e As opções deste menu que comentamos minuciosamente 
vão de 1 a 8. Se for digitada uma opção maior ou menor que 
estas, o programa acusará erro com a mensagem: OPÇÃO 
INVÁLIDA. 

e Se, por algum descuido, for digitado BREAK no programa, 
e este ainda tiver dados do cadastro na memória, não tecle 
RUN, pois desta forma todos os dados serão perdidos. Digite 
GOTO 60 que os dados não serão afetados. Verifique esta dica 
pesquisando um nome ou listando o arquivo. 

e Verifique se está tudo Ok com o seu programa, testando o 
programa antes de retirá-lo da memória e gravá-lo definitiva- 
mente. Para isso, proceda da seguinte forma: após a digitação 
do programa, grave-o com CSAVE “LISTA”; depois da grava- 
ção, certifique-se que está tudo certo com CLOAD? “LISTA”. 
Isso é feito retornando a fita com o programa gravado, e o mi- 
cro, então, compara o programa da memória com o programa 
da fita. Se tudo estiver correto, após a comparação (LEITURA) 
surgirá no vídeo a palavra READY e logo abaixo o cursor em 
sua posição normal, mas se tiver ocorrido algum erro, aparece- 
rá na tela a palavra MAU. é 


a 








== TEM TUDO PARA 


ESES= SATISFAZER VOCÊ 















Telecomunicações 











e Programas para Projeto 
Cirandão 

e Programas para Video- 
texto da Telesp 

e Placas RS-232 da 

Arias Microcomunicações 

para TRS-80 e Apple 


O maior acervo de programas 

do Brasil que você pod: 
testar, usar, administrar, 
programar, desenhar e jo- 
gar livremente. 





Disponíveis para as linhas: 
Apple, TRS-80 e Sinclair 

































Hardware 


e CPU's das linhas 
Apple, TRS-B0 e Sinclair 
e Interfaces para: 
Disco, Impressoras, CP/M, 
80 colunas e Expansão de 
memória 
e Drives para vários modelos 
e Monitores e impressoras 


Suprimentos 








e Formulários contínuos 
e Diskettes 
e Etiquetas 
e Fitas para impressoras 
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Av. Brigadeiro Faria Lima, 1390 
8º And. Cj. 82 Tels.: (011) 8136407 - 210 1251 
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Divirta-se e teste sua inteligência, neste jogo para 
a linha Sinclair, mesmo que você esteja... 








Solitário 


omo o próprio nome já diz, este jogo é para uma só 

pessoa. Solitário não depende de sorte, sendo 

baseado em puro raciocínio. Ele tem suas origens 

na civilização romana, mas só se tornou conhecido 
durante a Idade Média. A partir daí, espalhou-se por toda a 
Europa, sob duas versões: uma inglesa e outra francesa. A ver- 
são conhecida por nós é a inglesa, com 33 casas e 32 peças. 

O programa, para os micros da linha Sinclair, é auto-expli- 
cativo, só lembrando aqui que a jogada deve ser feita com as 
coordenadas juntas (B4D4), seguida de NEWLINE. As jogadas 
iniciais viáveis são: B4D4; D2D4; F4D4 ou D6D4. Também 
não se esqueça que quando não existir mais jogadas a fazer, 
deve-se digitar “OO” para saber a classificação. 

Agora, paciência e bons lances! 








ESSENSTRESTIE 
JN VENDAS DE MICROCOMPUTADORES 


10 FORI = 1TO20 

20 PRINT “ESTOU EM APUROS” 
30 NEXT | 

40 GO TO 10 











Roberto Ribeiro Peixinho é médico, tem como hobby a computação e, 
há três meses, trabalha com um TK-85. 
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eRdismac 
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EQUIPAMENTOS ELÉTRICOS LTDA. 
RUA LUIZ GOES, 1894 
FONES: 276-8988 e 577-8761 
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Linha SINCLAIR 


Quanto sobra de memória? 


Quando você estiver digitando um programa longo e 
quiser saber exatamente quanto ainda tem de memória dis- 
ponível, é só entrar com: 


PRINT(PEEK 1L6386+256XPEEK 16397)-€ 
PEEK 16412+256%PEEK 16413)+87 


Marcio Yamawaki-SP 





Linha APPLE 


Desafie a velocidade 


Aceite este desafio! Veja se consegue ser tão rápido 
quanto esta dica: 
iO REM RAPIDO. « 
15 REM ARMANDO OSCAR 
“0 DIM XCi00O),Yc4005 
q EXTSHGRE 

Dz [40X =80 


«RAPIDISSIMO 







q TO &FHCOLOR=T 

40 I=i TO 20 

30 XCT OERND CS) EYCI)=180%RNDCÍL) 
60 HPLOT XCI-i),YCI-i) TO XCTD,YCT 


NEXTENEXTEGOTO 30 
A linha 40 pode ser modificada (sendo que K pode ter 
qualquer valor até 100) para: 


40 FOR I=í TO K 


E uma boa surpresa para o pessoal que tem TK-2000: pa- 
ra rodar esta dica é só acrescentar esta linha: 


46% SOUND IxT,3 
Armando Oscar Cavanha Fº -RJ 








Organize => 
seus programas 


Aí vai um programinha simples 
para fornecer uma listagem im- 
pressa e devidamente organizada 
do conteúdo de todos os seus dis- 
quetes: 











CAVANHA FILHO 





10 CLS:PRINTALB, RX TMPRESSÃO DE D 
TRETOR TOS sex” 

20 PRINTABE, STRINGECZ9P, =") 

30 PRINTOS2O, “ENTRE O NOME DO DISC 
O 2“2PRINTELINE INPUT XB 


40 CLSELPRINTODIRETORIO DO DISCO== gem da linha 60. 
“XGELPRINT 

SO CMDOZO,CONCECMNDODE0DCECMDOZO, OF 

F“SLPRINTELPRINTECLS 

60 PRINTM6SS, “TROQUE O DISQUETE NO 

DRIVE O E TECLE” 

70 PRINTAZAS, CENTER: PARA CONTINU 

AR OU <BREAK)> PARA PARAR Roberto Quito 


80 LINE INPUT X$:GOTO 40 





Se você tem pequenas rotinas e programas utilitários 
realmente úteis tomando poeira em seus disquetes ou fitas 
cassetes, antecipe-se aos piratas e trate de divulgá-los, En- 
vie-os para a REDAÇÃO DE MICRO SISTEMAS — SEÇÃO 
DICAS: Av. Presidente Wilson, 165/grupo 1210, Centro, 
Rio de Janeiro, RJ, CEP 20030. Não se esqueça de dizer 
para qual equipamento foram desenvolvidos. Desta forma, 
sua d poderá ser útil para muitos e muitos, em 
vez de desmagnetizar-se com o tempo em suas fitas e dis- 
quetes... 


Linha TRS-80 COLOR 


Efeitos especiais com PCLS 


Se você está cansado das cores monótonas do fundo 
da tela quando usa o PCLS na tela gráfica, tente agora 
este programinha para mudar o seu panorama visual: 


















































£O PMODE 3,ia: 
20 FOR A=0 TO 
30 POKE 179,4 
40 PCLS 

NEXT A 














Observação: o valor A do POKE determina o padrão 
colorido do fundo da tela. 
















Marcos K. Watanabe-SP 





E se você possui 
dois drives e deseja 
trabalhar no drive 
1, basta modificar 
a linha 50 (CMD 
“D:1”) e a mensa- 


















de Sant'Anna-RJ 





Contagem regressiva 


Eis uma boa dica para ser implementada em seus jo- 
gos (ou mesmo em programas sérios): uma rotina que faz 
a contagem regressiva de 9... até O. 


& CLEARSOO 

7 CLS 

8 INPUT“CONTAGEM À PARTIR DE“;F:F= 

9— F 

£0O CLS 

11 6=9-F 

12 FORI=0TOG 

15 UB=CHR$(CL2B) 

20 AB=CHR$(C168):B5=STRINGSC4,131): 

Ch=CHR$(148) 

Ro X6=CHR$C1L6B) 2: YE=CHRECL4B) EZB=ST 

RING$(4,131):Z226=5TRINGS(4,131) 

23 H$=CHR$CL7O) 

40 € 

ao E 

oe 

43 JFE=2THENGOTOSE 

44 IFF=3THENB$B=UG:XB=UB:Z26=U6:GOT 

OG 

4% IFF=4THENCH=UBEO 

TFF=5THENXG=UB:Cb=UGEGOTOGA 

F=6THENZEG=UDE XB=16:Z6=UGEGOT 


+45 IFF=1 THENX6=UB:Z26=U5:GOT 





48 IFF=7THENAB=UG:XB=BEGOTOSP 

49 IFF=8THENABG=UG:Y6=UEIGOTOSA 

50 IFE=9THENBB=US:AB=)G:XB=62Z6=) 
G:CB=UG:YB=UGEZ2G=UGEPRINTOSL2, HG: 
PRINTOSZ4,HD; 2:G0TOSZ 

34 IFF=1OTHENB$=US 

Seo CLS:PRINTO4LO, AB; 2PRINTOSÍS,CE 
53 PRINTO474,XB;2ZPRINTOAZ9, YE 

5% PRINTOA7S,BBsSPRINTASLL,ZDy PRI 
NTOS39,7 ; 

57 FORJ=í TO2PSFOUTASS, LEOHNTOUTESS, 
S24+NENEXTJ 

60 NEXTI 

65 CLS:F=0:60TOB 





Raimundo Antonio Monteiro-GO 








Arquivando a tela 


Coloque em seu micro esta rotina em Assembler, que é 
dividida em duas partes: a primeira, que vai do endereço 
16514 até 16526, executa o armazenamento de uma tela 
inteira a partir do endereço 30000; e a segunda, que co- 
meça no endereço 16527 indo até 16540, que coloca ime- 
diatamente no vídeo a tela que foi armazenada. 








Linha SINCLAIR 


16514 
iésea 02 23 ED 
16330 ED SB OC 40 
1646538 ED BO C9 





Linha SINCLAIR 


Centralizando strings 


Crie uma moldura na tela com esta rotina simples 
que centraliza, rapidamente, strings: 


LL LET H$=2% 3% 36336 3636 636 366 36 DO DE DE DE DE DE 6 26 26 36 6 
IE IEEE EE 

INPUT M$ 

LET T=LEN M$ 

LET N=(28-T)/2 

CLS 
PRINT AT 
PRINT AT 


9,N5H$C TO T+4) 
10,N; x; TAB(34+T)/257% 


QNHADUR 


PRINT AT 4í,N;/X/; TABCI2-T)/24M 


E fa 
= 
7x 
ma 
P 4 

= 


AT 43,N;H6;( TO T+4) 


Marcel Gameleira-AL 


Linha TRS-80 COLOR 


Aumente a velocidade 


Caso você ache que o seu micro compatível com a 
linha TRS-80 Color não está trabalhando suficiente- 
mente rápido, digite então: 


POKE 65495,0 e <SENTER> 
Observe agora que o cursor está piscando com mais 
velocidade. Para desativar este Aigh-speed, basta dar 
um RESET e a velocidade voltará ao normal. Experi- 
mente, para testar, rodar um programa — de preferên- 
cia com muitos cálculos — e cronometrar o tempo 
gasto para executar as contas. Coloque novamente o 
programa e digite esta dica. Viu a diferença? Um lem- 
brete importante: nunca tente salvar em fita um pro- 
grama se o computador estiver em high-speed, pois a 
gravação e o programa na fita irão para o espaço... 


Marcos K. Watanabe-SP 








2A OC 40 14 30 75 04 Dá 
BO C9 2i 30 75 
13 01 Dá 08 








Adálbero Fernandes Guimarães-MG 












SOFTWARE 


e Soft CP500 (disco), todo tipo 
troco — Paulo — Cx. P. 6125 — 
CEP: 13100 — Campinas-SP. Tel.: 
(0192) 41-8860. 


e Vendo ou troco programas pa- 
ra computadores CP 500, CP 300, 
DGT 100 e similares. Tenho jogos 
como: Assault, Acrobatas, Star 
Blazer e outros. 5 mil cada. Faço 
adaptação de Joystick no CP 300. 
Paulo Roberto, Rua Sargento 
João Lopes, 804, Guarabu — Ilha 
do Governador — RJ. CEP: 21931 
— Tel.; 393-7903. 


e TK85 e compatíveis. Progra- 
mas inéditos. Peça relação pelo 
correio. Bonisoft. Av. Paula e 
Souza, 422, Maracanã, Rio, RJ 
CEP: 20271. 


e CPM/Basic ou Cobol. Linha 
Apple ou outras. Aceito progra- 
mas objetos para revenda. Tel.: 
(021) 263-7267, Sérgio/Paulo. 
Hor. comercial. 


e Soft p/Aplle — vendo aplicati- 
vos. Tel.: (011) 548-8842. 


e Programas p/Apple — os me- 
lhores do mercado internacional 
— 1000 títulos, Cr$ 25.000 disco 
cheio — Alfamicro — Cx. P. 21193 
— SP. 


e Programas p/Apple: aplicati- 
vos, utilitários, compiladores, lin- 
guagens e jogos. Tel.: (021) 239- 
0449, Stela. 


e Programas para Sinclair. Dez 
por apenas 1 ORTN. Peça catálo- 
go para Softbyte — R. Silvestre 
Ferraz, 1121 — 37500 lItajubá- 
MG. Tel.: (035) 622-1602. 


e Linha TRS80 Color, 300 pro- 
gramas a sua escolha, peça catá- 
logo, José Luiz Pereira, Cx.P. 
1536 — Foz do Iguaçu — CEP: 
85890 — PR. 


e Commodore-64, assessoria, 
software, manutenção e acessó- 
rios. Av. Brig. Faria Lima, 1644, 
s/| 26 — São Paulo — SP. Fone: 
(011) 843-1065. 


e Petroclub — Escreva enviando 
anexo 2000 mil e receba imediata- 
mente jogos e programas para a li- 
nha Sinclair ou TK2000, e envie 
também detalhes do seu micro. 
Rua Sold. Hercilio Tardeli, 152 
— Petrópolis — RJ — CEP: 25600. 


e Micro é movido a programa da 
Microlove. Reabasteça o seu Sin- 
clair e TRS-80 com nossos progra- 
mas. Peça lista tel.: (011) 448-4372. 
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e Apple & Compatíveis progra- 
mas e manuais — solicite listas — 
Domínio Público Soft & Man — 
Cx. Postal 201 — S. Bernardo do 
Campo — CEP: 09700 — São Pau- 
lo. 


e Vendo software p/todos os mi- 
cros. Fitas e disco. Tel.: (011) 
241-9064, SP. 


e Vendo compilador Basic e 
Forth, editor Assembler, ZX-De- 
bug, Micro Bug, MOS | (25 po- 
derosos comandos) para TK 85/ 
CP 200 Speed, gravados em 
Eprom Cr$ 60.000 cada. Vendo 
fita com 10 programas para TK 
2000/85 Cr$ 40.000. Gravo 
Eprom sob encomenda, S. C. 
Sampaio, Rua Pe. Leopoldo Fer- 
nandes, 360 — 60.000, Fortaleza- 
CE. 


e Vendo, troco programas Sinclair 
TRS80 peça catálogo. Oswaldo 
Alencar — Av. Gentil Bittencourt, 
124/1301 — Belém — Pa. CEP: 
66000. 


e Compro interpretador Logo, 
em fita cassete, para TK2000. 
Preço a combinar. Tel.: 286-1411, 
tratar com Eduardo. 


e Folha de Pgto., Contabilidade, 
Contr. Estoq., Contas Pag/Rec., 
Contas Correntes, Faturamento, 
Banco de Dados, Edit. Textos, 
Plan. Eletrônica, Utilitários, Gera- 
dores de Prog., Copiadores, Ma- 
nuais, para CP 500 e Apple. Te- 
mos também soft para IBM-PC. 
Despachamos para todo o Brasil, 
Microservice — O Software Com- 
pleto. R. Gaspar Fernandes, 16 — 
São Paulo — Tel.: (011) 215- 
9283. CEP: 01549. 


e Soft p/TK e CP. Lista grátis — 
FM Software — Cx. P. 85 Tatuí — 
SP ou R. Proença, 311 — J. Proen- 
ça — Campinas. 


e Vendo programas p/CP500. 
Tratar c/A. Gaeta Mg. São Vicen- 
te, 512/1002 — Rio de Janeiro-RJ. 


EQUIPAMENTOS 


e Poligames Vídeo & Micro: 
Toda linha Prológica, Microdigital 
e Apple. Teclados profissionais p/ 
linha TK e AS-1000. Softhouse 
programas profissionais p/CP500, 
jogos e aplicativos p/TK2000 e 
CP/400. Atendemos reembolso 
postal. Nossos preços são os me- 
lhores, procure-nos para conferir. 
Rua Cardoso de Moraes, 61, s/lo- 
ja 311 — Bonsucesso, Rio — Tel.: 
(021) 270-9197/290-2598. 


m financio 


DIVERSOS 





e Manuais em português para mi- 
cros e periféricos Commodore. Es- 
creva p/W. Belo, R. Itamaracá, 47, 
D. de Caxias, RJ. ou tel.: (021) 
771-6889, 


e Vic Commodore manutenção sé- 
ria, mil soft, manuais em portu- 
guês, cabos, capas, interface K7 e 
RS 232 para CBBS e projeto Ci- 
randão, manuais técnicos para 
Epson, TRS 80 e conectores, etc. 
Bartô Computadores tel.: (021) 
262-1213 — Av. Nilo Peçanha, 50/ 
2407 — Rio. 


e Traduzo qualquer publicação 
— Livros, Revistas, Manuais, Arti- 
gos em inglês, na área da Micro- 
computação. Informações com 
Jorge Eider Silva — Village dos 
Mares — Quadra 18 — Bloco B — 
Casa 15 — Capim Macio — 59000 
— Natal-RN. 


e Compro micros, periféricos, 
etc. Tel.: (011) 241-9064, SP. 


e Apple x Vídeo Texto, Ciran- 
dão. Não deixe seu Apple por fo- 
ra! Temos tudo p/Apple, informa- 
ções tel.: (011) 241-9064, SP. 


e Vendo micros, periféricos, etc. 
Todas as marcas e modelos. No- 
vos e usados c/garantia. Consulte- 
nos. Tel.: (011) 241-9064. 


e Instalo joystick de videogames 
compatíveis com Atari p/micros 
CP200 e CP300. Tratar com Nel- 
son. Tel.: (011) 469-4911 — SP. 


e Vendo drives, impressoras, in- 
terfaces, expansões, monitores de 
vídeo, joystick, software, tudo em 
micros e para micros. Novos e 
usados c/garantia. Consulte-nos. 
Tel.: (011) 241-9064, SP. 


e Assistência técnica p/micros e 
periféricos. Todas as marcas. Tel.: 
(011) 241-9064, SP. 









jos 


CURSOS 


e O NETC — Núcleo de Ensino 
de Tecnologia e Cieficia, estará 
promovendo a partir do mês de 
março, cursos inéditos destinados 
a Técnicos e Engenheiros Eletrô- 
nicos, Elétricos e de Telecomuni- 
cações. Todos os cursos são mi- 
nistrados com auxílio de transpa- 
rências e apostilas, incluindo 
amplo uso de laboratório de 
Hardware, contendo entre outros 
equipamentos, microcomputado- 
res da Suporte Engenharia desti- 
nados à treinamento e pesquisa 
com microprocessadores e peri- 
féricos. Alguns exemplos destes 
cursos são: Eletrônica Digital |, 
Computadores e Microcomputa- 
dores Digitais, Hardware de Sis- 
temas Baseados no Microproces- 
sador Z-80, Hardware de Siste- 
mas Baseados no MP 8080/85, 
Hardware de Sistemas Baseados 
no MP 6800, Software do MP 
Z-80, Software do MP 8080/85, 
Hardware de Teleprocessamento, 
Software de Teleprocessamento, 
Amplificadores Operacionais e In- 
terfaces A/D e D/A. Maiores in- 
formações e pedidos de catálo- 
gos de cursos pelo telefone: 
foz) 220-1989, Rua Álvaro Al- 
vim, 37/2º andar — Centro, Rio 
de Janeiro — RJ. CEP: 20031. 


e A Bits e Bytes Computadores 
ministra regularmente cursos de 
Basic e DBasic Il para computa- 
dores da linha CP 300/500 e com- 
patíveis IBM/PC, Aulas em peque- 
nas turmas, também para crian- 
ças. Em dias e horário de sua con- 
veniência. Maiores informações: 
322-1960 ou 322-2721, Estrada 
da Gávea, 642, loja B, São Conra- 
do, RJ. 


e Mumps — A Matriz promove, 
mensalmente cursos de Mumps. 
R. Maestro Elias Lobo, 70 — CEP: 
01433, SP. Informações (011) 64- 
0688. 


PARA ANUNCIAR NESTA SEÇÃO 
ESCREVA PARA: 


Av. Presidente Wilson, 165/Grupo 1210 
Centro — Rio de Janeiro/RJ — CEP 20030 


Tels.: (021) 262-6306 

Rua Oliveira Dias, 153 — Jardim Paulista 
São Paulo/SP — CEP 01433 — Tels.: 
(011) 853-3229 
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ÍTL.S. Servicos 








SOFTWARE — CP/M 





e Administração Imóveis/ 
Condomínios 

* Controle Administrativo/ 
Financeiro p/Clubes, Escolas, 
Corretoras Seguros 

e Controle Operacional Hotéis 

e Correção Monetária balanço 

e Faturamento Serviços Médicos 
(Convênios) 

* Formulação/Cálculo de Rações 

e Gerenciamento Rebanhos Gado 
Leiteiro e Gado de Corte 


Praia de Botafogo nº 210 — C.01 
CEP 22250 — Botafogo — RJ 
Tel. PBX (021) 551-6699 





COMPUTADORES 
E PERIFÉRICOS 


UNITRON 
MICROCRAFT 
VENDAS 
LEASING 


PROGRAMAS 
CURSOS 


ASSISTÊNCIA 


















Av. Mal. Câmara, 
Tel: (021) 262-3289 





TROPICAL SISTEMAS 





MACH FORM 


MÁQUINAS 
E FORMULÁRIOS LTDA 


REBOBINAÇÃO DE FITAS 
DE IMPRESSORAS 

ELGIN, DISMAC, ELEBRA eoutras 
ENCADERNAÇÕES 
SERVIÇOS GRÁFICOS 
OFF-SET — TIPOGRÁFICO 
NOTA FISCAL — FATURA 
IMPLANTAÇÃO — RENOVAÇÃO 
COMPRA E VENDA DE 
MÁQUINAS DE ESCRITÓRIO 
EM GERAL 

CONTRATO DE MANUTENÇÃO 
E CONSERTOS 

ARTIGOS DE PAPELARIA 


1)233-1593 





PROBLEMAS 
TÉCNICOS 
USE 

A CABEÇA 


DESENHO - PINTURA - ENGENHARIA 
PAPELARIA - ESCRITÓRIO - MÁQUINAS P! 
ESCRITÓRIO E SUPRIMENTOS EM GERAL 
O BEL: AR 
ELETRÔNICO 
onde você AINDA encontra 





AV. ALMIRANTE BARROSO, 81 - LJ “CG” 
RIO DE JANEIRO - CASTELO 


TROPICAL SISTEMAS LTDA. 
Av. Antônio Abraão Caran, 430 - 8.º A. - Tel.: 
Belo Horizonte - Minas Gerais - CEP 30.000 








PARA PROBLEMAS COM MATERIAL DE 


* qualidade de ANTIGAM! 
TEL: 262.929 - 262.9088 - 240-8410 - 221-8282 


FITAS CASSETES 
C5 C10 C15 C20 


MAGNÉTICAS 
1200 e 2400 pés 


O DISKETTES 


Rua Conde de Leopoldina 
270-A São Cristóvão — R.J 


Tels 


E 
ASSISTÊNCIA TÉCNICA 
A MICROCOMPUTADORES: 


Apple, TRS 80, IBM PC, ZX 81, TK 82, 
TK 85, CP 200, CP 500, Unitron, 
Impressoras e demais periféricos 

Jogos de xadrez e outros compatíveis. 


CIRANDÃO EMBRATEL .......- Modelo T 






ALBAMAR 


ELETRÔNICA LTDA. 











TAMANHOS 


C30 e outros 


SFITAS 






51/4e8” 


(021) 580-6729 
580-8276 












ANALÓGICOS - BANDA BASE - SÍNCRONOS - ASSÍNCRONOS 


Representantes: Rio - São Paulo - Brasília - Curitiba - Florianópolis - Fortaleza - Maceió - Salvador - 
Ribeirão Preto - Uberlândia 











MICROLOGICA 


Engenharia de Sistemas Ltda. Consultoria de Hardware 


Compramos seu micro 
funcionando ou não. 


VENDEMOS 

INTERFACES 
DIVERSAS P/ 
LINHA APPLE. 





Av. Presidente Vargas, 542/815 — Tel.: 263-9925 


(031) 441-1636 - Telex: (031) 1247 








. 
DAS 
ADO 
PUBLICAÇÕES TÉCNICAS 
Disponíveis em português 
1- Curso de dBase Il 
2 - Aplicativos dBase Il 
3 - Relatórios dBase Il 
4 - Curso de dBase IIl 
5 - Curso de Lotus 1-2-3 
6 - Aplicat. Lotus 1-2-3 
7 - Curso de Symphony 
8 - Curso de Framework 
9 - Curso de DOS (PC) 
10 - Curso de Unix 
NM - Curso de linguagem C 
12 - Curso de Wordstar 
MO SMINS RIA 
VENDAS DISPONÍVEIS PARA 
TODO BRASIL 
AL. Santos, 336 - G. 42 
cePOlaIB-sP 
TEL: (011) 285-01392 




















































Fazemos transformações 
e alinhamento de Drivers. 






UTILIZE NOSSO 
CONTRATO PARA 
ASSISTÊNCIA TÉCNICA 













275 e TS-300 
















TATCHELL, J. e BENNETT, B., 
Introdução ao microcomputador, 
Editora Lutécia. 


Dedicado, segundo pronuncia- 
mento da editora Lutécia, a “me- 
ninos e meninas de 8 a 16 anos”, 
este livro integra uma série com a 
qual os editores pretendem ganhar 
uma fatia do rentável mercado ju- 
venil da Informática. 


Todo construído à base de 
quadrinhos e pequenas legendas, o 
livro apresenta uma diagramação 
algo confusa e a ocorrência de de- 
finições simplistas e conceitos por 
vezes imprecisos, o que torna 
questionável sua eficiência em re- 
lação ao leitor-alvo: para o públi- 
co infantil, ele peca por abordar 
(geralmente, em duas páginas) 
temas complexos com o chip, re- 
des locais e controle de processos, 
e para os adolescentes este tipo de 
literatura é inconcebível, visto 
que os jovens na faixa de 15 anos 
possuem condições de vôos bem 
mais altos. 

Alguns dos temas tratados nos 
capítulos deste livro são: introdu- 
ção; o micro; programação; tecla- 
do; como executar e guardar pro- 
gramas; gráficos e animações; mú- 
sica e efeitos sonoros; o micro por 
dentro; uma pastilha por dentro; 
história do microcomputador; re- 
des de computadores; controle 
com micros; acessórios para o 
micro e como escolher seu micro. 


Na mesma linha, a Lutécia lan- 
çou ainda outros dois títulos da 
série. O Guia prático de programa- 
ção em BASIC, de Brian Smith, 
que trata em seus capítulos de 
assuntos como o funcionamento 
do computador; dando instruções 
ao computador; primeiros passos 
em BASIC; como utilizar o 
INPUT; o que fazer com o 
PRINT; desenhos; jogos; loops; 
subrotinas; gráficos e símbolos e 
dicas de programação, entre ou- 
tros temas. 


O terceiro livro traz programas 
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de jogos espaciais, sendo de auta- 
ria de Daniel Isaaman e Jenny 
Tyler. Neste, encontram-se lista- 
gens de programas, já adaptados 
aos equipamentos nacionais (li- 
nhas Sinclair, TRS e Apple), além 
de sugestões e dicas de programa- 
ção de jogos. Todos os livros são 
traduções. 


PIAZZI, Pierluigi, Jogos em 
Linguagem de Maquina, 
Editora Moderna. 


Jogos em Linguagem de Má- 
quina pode ser considerado uma 
espécie de antologia de programas 
para computadores compatíveis 
com o Sinclair ZX-81. Todos os 
programas apresentados neste li- 
vro são jogos escolhidos segundo 
vários critérios e não têm o único 
objetivo de divertir. Embora bus- 
que o divertimento, o livro pode 
ser utilizado como fonte de con- 
sulta para atividades técnicas, di- 
dáticas e educativas. 

Por se tratarem de jogos, os 
programas contidos no livro exi- 
gem uma rapidez de processamen- 
to impossível de ser obtida com o 
BASIC. Assim, a parte essencial 
de todos os programas é elaborada 
em ASSEMBLER. 

Para tornar a obra acessível a 
um maior número de pessoas, a 
parte em linguagem de máquina 
foi listada de maneira que não se 
precise conhecer esta linguagem. 
O primeiro capítulo oferece o 
programa de um Monitor que per- 
mitirá a introdução de códigos no 
computador de forma bem 
simples. 

Ao final do livro são apresen- 
tados dois apêndices: no apêndice 
A foi listado um programa Moni- 
tor para aqueles que possuem um 
micro com apenas 2Kb de memó- 
ria RAM; no B foram publicadas 
algumas cópias da tela para que o 
leitor possa se organizar melhor, 
caso queira alterar um display em 
algum jogo. 








DAMEL A. MENASCE = DANIEL ICHW ADE 


R [é 
COMPUTADORES 
Aspectos Técnicos e Operacionais 





MENASCÉ, D.; SCHWABE, D. 
Redes de Computadores-Aspectos 
Técnicos e Operacionais, 

Editora Campus. 


A tecnologia chamada comu- 
tação por pacotes tem representa- 
do um papel revolucionário na 
área de comunicação de dados. 
isso porque ela permite que o 
desenvolvimento verificado na 
área de computação seja direta- 
mente aproveitado na transmissão 
de dados. 

Como resultado desta tecnolo- 
gia, surgiram as redes de compu- 
tadores, que formam a base dos 
modernos sistemas de processa- 
mento distribuído. 

Assim, este livro trata, inicial- 
mente, dos aspectos de organiza- 
ção de uma rede de computado- 
res, descrevendo, em seguida, pro- 
tocolos que permitem o seu fun- 
cionamento. Além disso, os auto- 
res examinam tópicos relaciona- 
dos às centrais de comutação de 
pacotes, redes locais de compu- 
tador e banco de dados distribu(f- 
dos. 

Estes assuntos estão subdivi- 
didos do capítulo 2 ao 9 de Redes 
de Computadores. Nos capítulos 
2 e 3 são discutidos os mecanis- 
mos básicos usados na organiza- 
ção das redes de computadores e 
os procedimentos usados para 
controlar o seu funcionamento. 
O quarto capítulo apresenta as 
formas de um computador acessar 
uma rede, e, no quinto temos as 
formas de se ligar processos que 
executam em vários computado- 
res ligados à rede. O capítulo 
seguinte mostra os protocolos que 
oferecem serviços do tipo acesso 


remoto por terminal e transferên- 
cia de arquivos. No capítulo 7 são 
discutidas formas de organização 
dos nós de comutação da rede, 
enquanto o 8 introduz as redes 
locais, e o 9 trata de bancos de 
dados distribuídos. O livro consta, 
ainda, de um capítulo de conclu- 
sões. 





MIRSHAWKA, V., Conhecendo e 
Utilizando o TK-2000, 
Editora Nobel. 


O objetivo do autor de Co- 
nhecendo e utilizando o TK- 
2000 é mostrar ao leitor, de ma- 
neira didática, as diversas aplica- 
ções do TK-2000 Color. Porém, 
esse objetivo não impediu que a 
parte prática fosse desenvolvida. 

Assim, o autor elaborou e co- 
mentou programas para desenvol- 
ver problemas de matemática e ff- 
sica; produzir sons que podem se 
tornar melodias; desenhar figuras 
reais e abstratas, inclusive gráficos 
animados; criar desenhos de duas 
e três dimensões, usando modelos 
gráficos de baixa e alta resolução, 
além de programas para o seu di- 
vertimento em geral, procurando 
utilizar quase todas as instruções 
ou comandos da linguagem 
BASIC-APPLESOFT. As explica- 
ções sobre os comandos utilizados 
nos programas são dadas à medida 
que eles aparecem, e a descrição 
do uso correto dos diversos co- 
mandos, embora superficial, é su- 
ficiente para que se possa compre- 
endê-los. Ao final de cada capítu- 
lo o leitor poderá resolver tarefas 
que o ajudarão a dominar, ainda 
mais, o seu TK-2000. 





Endereço das Editoras: 





e Editora Campus — Rua Japeri, 35, Rio Comprido, CEP 20420, 


Rio de Janeiro, RJ; 


e Editora Lutécia — Rua Argentina, 171, CEP 20921, Rio de 


Janeiro, RJ; 


e Editora Moderna — Rua Afonso Brás, 431, CEP 04511, São 


Paulo, SP; 


e Editora Nobel — Rua da Balsa, 559, CEP 02910, São Paulo, SP. 
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M QUE ESTAR PREPARADO 
PARA SE DESENVOLVER COM OS 
NOVOS TEMPOS QUE ESTÃO AÍ. E O 
CP 400 COLOR É A CHAVE DESSA 
EVOLUÇÃO PESSOAL E PROFISSIONAL. 





POR QUÊ? 
PORQUE O 
CP 400 COLOR É 
UM COMPUTADOR 
PESSOAL DE 
TEMPO INTEGRAL: 
ÚTIL PARA A 
FAMÍLIA TODA, O DIA INTEIRO 

NA HORA DE SE DIVERTIR, POR 
EXEMPLO, É MUTTO MAIS EMOCIO: 
NANTE PORQUE, ALÉM DE OFERECER 
JOGOS INÉDITOS, É O ÚNICO COM 
2 JOYSTICKS ANALÓGICOS DE ALTA 
SENSIBILIDADE, QUE PERMITEM MO- 
VIMENTAR AS IMAGENS EM TODAS 
AS DIREÇÕES, MESMO. NA HORA 
DE TRABALHAR E ESTUDAR, O CP 400 
COLOR MOSTRA O SEU LADO SÉRIO: 
MEMÓRIA EXPANSÍVEL, PORTA PARA 
COMUNICAÇÃO DE DADOS, SAÍDA 
PARA IMPRESSORA, E UMA ÓTIMA 
NITIDEZ COM IMAGENS COLORIDAS 

COMO SE TUDO ISSO NÃO 
BASTASSE, A PROLÓGICA AINDA OFE- 
RECE A GARANTIA DE QUALIDADE 
DE QUEM É LÍDER NA TECNOLOGIA 
DE COMPUTADORES, E O PREÇO 
MAIS ACESSÍVEL NA CATEGORIA 

NUMA FRASE: SE VOCÊ NÃO 
QUISER CHEGAR ATRASADO AO FL 
TURO, COMPRE SEU CP 400 COLOR 
press pad 

EMOÇÃO E INTELIGÊNCIA NUM 
EQUIPAMENTO SÓ. 
* MICROPROCESSADOR: 6S09E COM 











ESTRUTURA INTERNA DE 
16 BITS E CLOCK DE FREQUÊNCIA 
DE ATÉ 1.6 MHZ 

e POSSIBILITA O USO DE ATÉ 
9 CORES, E TEM UMA RESOLUÇÃO 
GRÁFICA SUPERIOR A 49.000 
PONTOS. 

* MEMÓRIA ROM: 16K BYTES 
PARA SISTEMA OPERACIONAL E 
INTERPRETADOR BASIC 

e MEMÓRIA RAM: O CP 400 COLOR 
ESTÁ DISPONÍVEL EM DOIS MODELOS 

e MODELO 16K: 


EXPANSÍVEL A 
= 64K BYTES 
e MODELO 64K 
e ,ríciKyres 
QUANDO USADO 
COM O NOVO 
DISK-SYSTEM, 
CP 450 
e (CP 400 COLOR DISPÕE DE 
CARTUCHOS DE PROGRAMAS COM 
168 BYTES DE CAPACIDADE, 
QUE PERMITEM O CARREGAMENTO 
INSTANTÂNEO DE JOGOS, 
LINGUAGENS E APLICATIVOS COMO 
BANCO DE DADOS, PLANILHAS 
DE CÁLCULO, EDITORES DE TEXTOS 
APLICATIVOS FINANCEIROS 
APLICATIVOS GRÁFICOS, ETC 
e SAÍDA SERIAL RS 232 C QUE 
PERMITE COMUNICAÇÃO DE DADOS 
ALÉM DO QUE, ATRAVÉS DESTA 
PORTA, VOCÊ PODE CONECTAR 








QUALQUER IMPRESSORA SERIAL 
OU ATÉ MESMO 
FORMAR UMA qa 
REDE DE TRABA: 
LHO COM e 
OUTROS MICROS. 

e PORTA PARA 
GRAVADOR CAS- a 
SETE COM GRAVAÇÃO E LEITURA 
DE ALTA VELOCIDADE. 

e SAÍDAS PARA TV EM CORES E MONI 
TOR PROFISSIONAL 








ENQUANTO OUTROS TÊM SOMENTE 
8 DIREÇÕES. 

* AMPLA BIBLIOTECA DE SOFTWARE 
JÁ DISPONÍVEL 

e ALIMENTAÇÃO: 110-220 VOLTS 


VEJA, TESTE E COMPRE 
SEU CP 400 COLOR NOS MAGAZINES 
E REVENDEDORES PROLÓGICA, 


TECNOLOGIA 8 








COMPUTADORES sans 






TSSAB 0745484540 





QUEM TEM UM, TEM FUTURO. 


Apresentamos 0 pagar, faz sua programação financeira, 


efetua a folha de pagamentos & 


| K 2000 I administra minuto a minuto as suas 


atividades. 


Ee roda 0 programa Detalhe importante: o novo 
mais famoso TK 2000 ||, com Mutticalc, pode 


intercambiar planilhas com 
do mundo. computadores da linha Apple”. 


E, como todo business computer 
De hoje em diante nenhuma 


empresa, por menor que seja, pode 
dispensar 0 TK 2000 Il. Por que? 

O novo TK 2000 II roda o 
Multicalc: a versão Microsoft do 
Visicalc? o programa mais famoso em 
todo o mundo. 

Isto signífica que, com ele, você 
controla estoques, custos, contas à 


* Sujeto a alteração sem prévio aviso. 





que se preza, ele tem teclado 
profissional, aceita monitor, diskette, 
impressora & já vem com interface. 

Além de poder ser ligado ao seu 
televisor (cores ou P&B), oferecendo 
som e imagem da melhor qualidade. 

Portanto, peça logo uma 
demonstração do novo TK 2000 ||, nas 
versões 64K ou 128K de memória. 

À mais nova estrela do show 
business só espera por isto para 
estrear no seu negócio. 


Preço de lançamento* [128 K): 
Cr$ 2.649.850 


computadores pessoais 
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